OFFSET
1,1
EXAMPLE
313 = (3)(1)(3) -> (27)(1)(27) = 27127, which is a prime.
MATHEMATICA
Select[Range[600], PrimeQ[FromDigits[Flatten[IntegerDigits/@ (IntegerDigits[ #]^3)]]]&] (* Harvey P. Dale, Jan 27 2015 *)
PROG
(Python)
from sympy import primerange, isprime
for n in primerange(2, 600):
t=int(''.join(str(int(i)**3) for i in str(n)))
if sympy.isprime(t):
print(n)
# Abhiram R Devesh, Feb 09 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Mar 15 1999
EXTENSIONS
Offset corrected by Michel Marcus, Oct 19 2016
STATUS
approved