A167741 Primes that become squares when prefixed with an 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
Offset: 1
Links
- Alois P. Heinz, Table of n, a(n) for n = 1..20000 (first 131 terms from Vincenzo Librandi)
Programs
-
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 *)
Extensions
Definition corrected and sequence extended by Michel Marcus, Aug 05 2013
Comments