A234928 Primes which become cubes when the digits are rotated once to the right.

251, 433, 73369, 126739, 144323, 579113, 786887, 1248641, 2250431, 2417923, 2950291, 3013847, 4428971, 5208751, 6430321, 6453737, 7715611, 8698933, 8805997, 9443123, 10895671, 16970831, 31442561, 33862483, 35600597, 35766649, 36519191, 41963759

Offset

1,1

Links

Alois P. Heinz, Table of n, a(n) for n = 1..1000

Example

The prime 126739 is in the sequence because 912673 = 97^3.

Mathematica

Select[Prime[Range[26*10^5]], IntegerQ[Surd[FromDigits[ RotateRight[ IntegerDigits[ #]]], 3]]&] (* Harvey P. Dale, Oct 28 2018 *)

Prog

(PARI) rotr(a) = if(a<10, a, eval(Str(a%10, a\10)))
s=[]; forprime(n=2, 50000000, if(ispower(rotr(n), 3), s=concat(s, n))); s

Crossrefs

Cf. A234929.

Sequence in context: A142419 A364968 A161854 * A142569 A142742 A142924

Adjacent sequences: A234925 A234926 A234927 * A234929 A234930 A234931

Keyword

nonn,base

Author

Colin Barker, Jan 01 2014

Status

approved