%I #11 Aug 31 2017 16:29:56
%S 353,1999,14759,115601,40351559,558545864083281959,
%T 44567640326363195900190045974565959,
%U 88124787089723195184393736687912818113309153,10367793076318844190248738727596255138212949484401
%N Convenience store primes or prime of the form abs(7^n - 2^11).
%C The next term (a(10)) has 100 digits. - _Harvey P. Dale_, Aug 31 2017
%H Charles R Greathouse IV, <a href="/A122718/b122718.txt">Table of n, a(n) for n = 1..17</a>
%H C. Pomerance, <a href="http://www.sciencenews.org/pages/sn_arc98/7_4_98/mathland.htm">Science News reference</a>.
%t With[{c=2^11},Select[Abs[7^Range[0,100]-c],PrimeQ]]//Sort (* _Harvey P. Dale_, Aug 31 2017 *)
%o (PARI) g(n) = for(x=1,n,y=abs(7^x-2^11);if(ispseudoprime(y),print1(y",")))
%K nonn
%O 1,1
%A _Cino Hilliard_, Sep 23 2006
%E One additional term (a(9)) from _Harvey P. Dale_, Aug 31 2017
|