A167742 Primes that becomes a square when some single digit is inserted in front of its decimal expansion.

5, 29, 41, 61, 89, 241, 281, 401, 409, 521, 569, 601, 761, 809, 929, 1009, 1289, 1609, 2441, 2801, 3001, 3361, 4289, 4649, 4969, 5281, 5849, 6481, 6569, 7121, 7841, 8081, 8209, 9049, 9241, 9601, 9929

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..700

Mathematica

sqQ[x_]:=Count[Table[FromDigits[Join[{n}, IntegerDigits[x]]], {n, 9}], _?(IntegerQ[Sqrt[#]]&)]>0; Select[Prime[Range[1300]], sqQ] (* Harvey P. Dale, Oct 24 2011 *)

Crossrefs

Sequence in context: A087879 A091729 A033205 * A107151 A340154 A117746

Adjacent sequences: A167739 A167740 A167741 * A167743 A167744 A167745

Keyword

base,nonn

Author

Claudio Meller, Nov 10 2009

Status

approved