%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_