OFFSET
1,1
COMMENTS
There are exactly 60 such numbers.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..60
EXAMPLE
a(1)= 10171, 10171^2=103_449_241
a(2)= 10371, 10371^2=107_557_641
a(60)=31591, 31591^2=997_991_281
MATHEMATICA
ttdpQ[n_]:=Module[{c=FromDigits/@Partition[IntegerDigits[n^2], 3]}, Min[ IntegerLength[ c]] ==3&&AllTrue[c, PrimeQ]]; Select[Range[ 10000, 31622], ttdpQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 26 2016 *)
CROSSREFS
KEYWORD
base,fini,nonn
AUTHOR
Zak Seidov, Dec 19 2008
STATUS
approved