A153139 Numbers n with property that n^2 is a concatenation of three 3-digit primes.
10171, 10371, 10447, 10449, 10451, 11303, 11801, 11827, 12319, 12553, 13387, 13829, 13847, 13903, 13913, 14141, 14549, 15087, 15097, 15153, 15847, 16431, 16841, 16847, 17549, 18363, 18379, 18637, 18697, 18701, 19319, 19337, 19579
Offset: 1
Examples
a(1)= 10171, 10171^2=103_449_241 a(2)= 10371, 10371^2=107_557_641 a(60)=31591, 31591^2=997_991_281
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..60
Programs
-
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 *)
Comments