login
A024626
Positions of squares among the powers of primes (A000961).
1
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
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
KEYWORD
nonn
STATUS
approved