OFFSET
1,1
COMMENTS
Subsequence of A167535.
EXAMPLE
a(1) = 14449 = the concatenation of 12^2 and 7^2 and of 38^2 and 3^2.
a(5) = 64516961 = the concatenation of 8^2 and 719^2 and of 254^2 and 31^2.
MATHEMATICA
K[m_Integer, n_Integer] := n+m*10^IntegerLength[n]; k=-1; V={}; g=5000000; W={}; While[k<g, k++; m=2 k+1; n=0; While[n<2 g, n++; a=K[n^2, m^2]; If[a>10 (2 g)^2, n=2 g, If[PrimeQ[a], V={V, a}]]]]; V=Flatten[V]; W1=Sort[V]; W2=Union[V](*= A167535*); i=0; While[i<Length[W1]-1, i++; If[W1[[i+1]]==W1[[i]], W=Append[W, W1[[i]]]]]; Union[W]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Emmanuel Vantieghem, Jan 06 2012
STATUS
approved