Svoboda | Graniru | BBC Russia | Golosameriki | Facebook
login
A167734
Primes that becomes a square when prefixed with a 1.
8
521, 10889, 23201, 27449, 31769, 36161, 45161, 54449, 78929, 99809, 1148921, 1229201, 1309769, 1431161, 2047841, 2257001, 2299049, 2467961, 2595401, 2680721, 2766329, 2809241, 2895281, 2938409, 3024881, 3329801, 3417569, 3461561
OFFSET
1,1
LINKS
MATHEMATICA
Select[Prime[Range[1000]], IntegerQ[Sqrt[FromDigits[Join[{1}, IntegerDigits[#]]]]]&] (* G. C. Greubel, Jun 23 2016 *)
KEYWORD
base,nonn
AUTHOR
Claudio Meller, Nov 10 2009
EXTENSIONS
More terms from Michel Marcus, Aug 05 2013
STATUS
approved