A234929 - OEIS

A234929

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

251, 3491, 7219, 10133, 12979, 20051, 30491, 54287, 61757, 205487, 231443, 300491, 585737, 714887, 949303, 1000133, 1002979, 1035791, 1075357, 1224809, 2031443, 2068147, 3091267, 3386989, 5152087, 5993837, 6001757, 6009733, 6156089, 6752953, 7000219, 7144289

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..32.

EXAMPLE

The prime 7219 is in the list because 2197 = 13*13*13.

PROG

(PARI) rotl(a) = my(b, c, d); b=#Str(a); c=floor(a/(10^(b-1))); d=a-c*(10^(b-1)); 10*d+c

s=[]; forprime(n=2, 40000000, if(ispower(rotl(n), 3), s=concat(s, n))); s

(SageMath)

[i for i in primes_first_n(1000000) if Integer((int(str(i)[1:]+str(i)[:1]))).nth_root(3, True)[1]] # Tom Edgar, Jan 03 2014