The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A153050 Six-digit squares that are concatenation of two 3-digit primes. 2

%I

%S 101761,113569,127449,131769,137641,149769,167281,199809,349281,

%T 439569,463761,491401,641601,683929,797449

%N Six-digit squares that are concatenation of two 3-digit primes.

%C a(n)=(A153048(n))^2.

%C There are exactly 15 such numbers.

%t c = 0; t = 1000; re = Sort[Reap[Do[If[PrimeQ[p], Do[If[PrimeQ[q], r = p*t + q; s = Sqrt[r]; If[s == Floor[s], c++; Sow[r]]], {q, 101, 999, 2}]], {p, 101, 999, 2}]][[2, 1]]]

%t concatpQ[n_]:=Module[{idn=IntegerDigits[n],a,b},a=FromDigits[Take[idn,3]];b=FromDigits[Take[idn,-3]];IntegerLength[a]==IntegerLength[b]==3 && PrimeQ[a]&&PrimeQ[b]]; Select[Range[316,1000]^2,concatpQ] (* _Harvey P. Dale_, Mar 09 2012 *)

%Y Cf. A153048.

%K fini,full,nonn,base

%O 1,1

%A _Zak Seidov_, Dec 17 2008

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 18 03:09 EST 2021. Contains 340249 sequences. (Running on oeis4.)