|
|
A167741
|
|
Primes that become squares when prefixed with an 8.
|
|
8
|
|
|
41, 281, 5849, 8209, 11801, 29921, 33569, 51929, 70489, 77969, 128201, 139609, 196769, 219689, 346321, 415801, 450649, 532241, 543929, 602489, 625969, 684809, 743849, 755681, 767521, 922169, 934121, 946081, 958049
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[10000]], IntegerQ[Sqrt[FromDigits[Join[{8}, IntegerDigits[#]]]]]&] (* G. C. Greubel, Jun 23 2016 *)
Select[Prime[Range[80000]], IntegerQ[Sqrt[8*10^IntegerLength[#]+#]]&] (* Harvey P. Dale, Jan 29 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Definition corrected and sequence extended by Michel Marcus, Aug 05 2013
|
|
STATUS
|
approved
|
|
|
|