Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A242178
Numbers k such that k*8^k + 1 is prime.
4
5, 17, 23, 1911, 20855, 35945, 42816
OFFSET
1,1
MATHEMATICA
Select[Range[2000], PrimeQ[# 8^# + 1] &]
PROG
(Magma) [n: n in [0..2000] | IsPrime(n*8^n+1)];
(PARI) is(n)=ispseudoprime(n*8^n+1) \\ Charles R Greathouse IV, May 22 2017
CROSSREFS
Cf. similar sequences listed in A242176.
Sequence in context: A097434 A106012 A230527 * A343594 A063588 A307286
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, May 08 2014
EXTENSIONS
a(5)-a(7) from Loeh's list (see Links) - Bruno Berselli, May 08 2014
STATUS
approved