|
%I #2 Mar 30 2012 17:26:31
%S 2,6,9,8,15,12,21,16,18,20,33,24,39,28,30,32,51,36,57,40,42,44,69,48,
%T 50,52,54,56,87,60,93,64,66,68,70,72,111,76,78,80,123,84,129,88,90,92,
%U 141,96,98,100,102,104,159,108,110,112,114,116,177,120,183,124,126,128,130
%N a(n)=3*n if n is prime, otherwise a(n)=2*n.
%t Table[If[PrimeQ[n],3*n,2*n],{n,1,200}]
%Y Cf. A068519, A167480, A167482, A175027, A175028, A175029.
%K nonn
%O 1,1
%A _Zak Seidov_, Nov 04 2009
|
