A175029 a(n)=2*n if n is prime, otherwise a(n)=3*n.

3, 4, 6, 12, 10, 18, 14, 24, 27, 30, 22, 36, 26, 42, 45, 48, 34, 54, 38, 60, 63, 66, 46, 72, 75, 78, 81, 84, 58, 90, 62, 96, 99, 102, 105, 108, 74, 114, 117, 120, 82, 126, 86, 132, 135, 138, 94, 144, 147, 150, 153, 156, 106, 162, 165, 168, 171, 174, 118, 180, 122, 186

Offset

1,1

Links

Table of n, a(n) for n=1..62.

Mathematica

Table[If[PrimeQ[n], 2*n, 3*n], {n, 1, 200}]

Crossrefs

Cf. A068519, A167480, A167482, A175027, A175028.

Sequence in context: A366439 A062822 A175894 * A113728 A000114 A310006

Adjacent sequences: A175026 A175027 A175028 * A175030 A175031 A175032

Keyword

nonn

Author

Zak Seidov, Nov 04 2009

Status

approved