A203815 Primes which are the decimal concatenation of two squares in more than one way.

14449, 4651249, 14592449, 25281961, 64516961, 144552049, 4963984001, 10241442401, 121828921681, 1089936421201, 1589776384961, 4640334443681, 19713620187049, 25593280441009, 81105458016049, 121521961692601, 445309309225961

Offset: 1

Author

Emmanuel Vantieghem, Jan 06 2012

Keywords

• nonn
• base

Comments

Subsequence of A167535.

Examples

			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.
		

Crossrefs

Cf. A167535.

Programs

Mathematica

K[m_Integer, n_Integer] := n+m*10^IntegerLength[n]; k=-1; V={}; g=5000000; W={}; While[k10 (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