%I #20 Jan 29 2023 12:11:58
%S 41,281,5849,8209,11801,29921,33569,51929,70489,77969,128201,139609,
%T 196769,219689,346321,415801,450649,532241,543929,602489,625969,
%U 684809,743849,755681,767521,922169,934121,946081,958049
%N Primes that become squares when prefixed with an 8.
%C Subsequence of primes of A273363. - _Michel Marcus_, Jun 24 2016
%H Vincenzo Librandi, <a href="/A167741/b167741.txt">Table of n, a(n) for n = 1..131</a>
%t Select[Prime[Range[10000]], IntegerQ[Sqrt[FromDigits[Join[{8}, IntegerDigits[#]]]]]&] (* _G. C. Greubel_, Jun 23 2016 *)
%t Select[Prime[Range[80000]],IntegerQ[Sqrt[8*10^IntegerLength[#]+#]]&] (* _Harvey P. Dale_, Jan 29 2023 *)
%Y Cf. A167734, A167735, A167736, A167737, A167738, A167739, A167740.
%Y Cf. A273363.
%K base,nonn
%O 1,1
%A _Claudio Meller_, Nov 10 2009
%E Definition corrected and sequence extended by _Michel Marcus_, Aug 05 2013
|