login
Positions of cubes among the powers of primes (A000961).
1

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

%S 1,7,16,28,43,87,118,153,245,361,605,699,930,1514,1881,2294,2777,3303,

%T 3591,5280,6946,7892,10027,11212,13871,18550,20323,23151,26219,30762,

%U 33157,41178,44126,47156,57135,72447,80965,85429,94953,99932,110400

%N Positions of cubes 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 (ispower(powpr[i], 3), print1(i, ", ")););}

%Y Cf. A024626.

%K nonn

%O 1,2

%A _Clark Kimberling_