|
%I #13 Mar 19 2018 04:18:21
%S 4,8,12,16,20,24,28,32,36,40,48,56,60,64,72,80,84,96,100,108,112,120,
%T 128,140,144,160,168,180,192,196,200,216,224,240,252,256,280,288,300,
%U 320,324,336,360,384,392,400,420,432,448,480,500,504,512,540,560,576
%N Multiples of 4 which are members of A002473. Or multiples of 4 with the largest prime divisor < 10.
%H Robert Israel, <a href="/A085127/b085127.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = 4*A002473(n). - _Robert Israel_, Mar 18 2018
%p N:= 1000: # to get all terms <= N
%p sort([seq(seq(seq(seq(2^a*3^b*5^c*7^d, d=0..floor(log[7](N/(2^a*3^b*5^c)))),c=0..floor(log[5](N/(2^a*3^b)))), b=0..floor(log[3](N/2^a))), a=2..floor(log[2](N)))]); # _Robert Israel_, Mar 18 2018
%t Select[4Range[150],Last[FactorInteger[#]][[1]]<10&] (* _Harvey P. Dale_, Aug 24 2011 *)
%Y Cf. A002473, A085125, A085126, A085128, A085129, A080194, A085131, A085132.
%K base,easy,nonn
%O 1,1
%A _Amarnath Murthy_, Jul 06 2003
%E More terms from _David Wasserman_, Jan 28 2005
%E Offset changed by _Robert Israel_, Mar 18 2018
|
