%I #13 Oct 28 2018 08:13:11
%S 251,433,73369,126739,144323,579113,786887,1248641,2250431,2417923,
%T 2950291,3013847,4428971,5208751,6430321,6453737,7715611,8698933,
%U 8805997,9443123,10895671,16970831,31442561,33862483,35600597,35766649,36519191,41963759
%N Primes which become cubes when the digits are rotated once to the right.
%H Alois P. Heinz, <a href="/A234928/b234928.txt">Table of n, a(n) for n = 1..1000</a>
%e The prime 126739 is in the sequence because 912673 = 97^3.
%t Select[Prime[Range[26*10^5]],IntegerQ[Surd[FromDigits[ RotateRight[ IntegerDigits[ #]]], 3]]&] (* _Harvey P. Dale_, Oct 28 2018 *)
%o (PARI) rotr(a) = if(a<10, a, eval(Str(a%10, a\10)))
%o s=[]; forprime(n=2, 50000000, if(ispower(rotr(n),3), s=concat(s, n))); s
%Y Cf. A234929.
%K nonn,base
%O 1,1
%A _Colin Barker_, Jan 01 2014
|