A024626 - OEIS

%I #6 Oct 02 2013 06:39:58

%S 1,4,8,11,15,24,28,33,42,54,71,79,92,121,137,153,171,188,199,248,293,

%T 314,364,393,446,526,559,605,651,719,750,857,894,935,1050,1215,1305,

%U 1348,1436,1479,1581,1774,1881,1938,1962,2040,2206,2256,2557,2616,2800,2987

%N Positions of squares among the powers of primes (A000961).

%o (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

%Y Cf. A024627.

%K nonn

%O 1,2

%A _Clark Kimberling_