A167736 Primes that becomes a square when prefixed with a 3.

61, 4969, 6481, 9601, 23761, 26041, 37561, 68449, 88129, 129361, 179089, 214849, 265249, 301489, 308761, 411409, 455881, 463321, 485689, 508129, 523129, 530641, 659569, 713329, 751969, 829849, 916441, 924361, 948169, 964081, 996001, 1058329, 1147561, 1281649

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..107

Mathematica

Select[Prime[Range[1000000]], IntegerQ[Sqrt[FromDigits[Join[{3}, IntegerDigits[ #]]]]]&] (* Harvey P. Dale, Nov 01 2011 *)

Prog

(PARI)
\\ terms upto 10^n
upto(n) = {my(sqrt31 = sqrt(3.1), sqrt40 = sqrt(4.0), r); for(k=2, n, for(j = ceil((sqrt31 * sqrt(10^k))), floor(sqrt40 * sqrt(10^k)), r = j^2%10^k; if(isprime(r), print1(r", "))))} \\ David A. Corneth, Jun 24 2016

Crossrefs

Cf. A167734, A167735, A167737, A167738, A167739, A167740, A167741.

Sequence in context: A201031 A165259 A181636 * A015288 A219113 A210686

Adjacent sequences: A167733 A167734 A167735 * A167737 A167738 A167739

Keyword

base,nonn

Author

Claudio Meller, Nov 10 2009

Extensions

More terms from Harvey P. Dale, Nov 01 2011

Status

approved