A024626 Positions of squares among the powers of primes (A000961).

1, 4, 8, 11, 15, 24, 28, 33, 42, 54, 71, 79, 92, 121, 137, 153, 171, 188, 199, 248, 293, 314, 364, 393, 446, 526, 559, 605, 651, 719, 750, 857, 894, 935, 1050, 1215, 1305, 1348, 1436, 1479, 1581, 1774, 1881, 1938, 1962, 2040, 2206, 2256, 2557, 2616, 2800, 2987

Offset

1,2

Links

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

Prog

(PARI) lista(nn) = {vec = vector(nn, i, i); powpr = select((i->((omega(i)==1) || (i==1))), vec); for (i = 1, #powpr, if (issquare(powpr[i]), print1(i, ", ")); ); } \\ Michel Marcus, Oct 02 2013

Crossrefs

Cf. A024627.

Sequence in context: A311056 A311057 A054736 * A311058 A311059 A311060

Adjacent sequences: A024623 A024624 A024625 * A024627 A024628 A024629

Keyword

nonn

Author

Clark Kimberling

Status

approved