A332763 Numbers k such that 6*17^k + 1 is prime.

0, 1, 5, 7, 19, 23, 67, 107, 400, 429, 617, 743, 1065, 7717, 12329, 14459, 22425, 114543, 221983, 237453

Offset

1,3

Comments

a(21) > 3.75*10^5. - Paul S. Vanderveen, Jul 05 2020

Links

Table of n, a(n) for n=1..20.

Mathematica

Select[Range[0, 1000], PrimeQ[6*17^# + 1] &] (* Amiram Eldar, Feb 24 2020 *)

Prog

(PARI) for(i=1, 10000, if( ispseudoprime(6*17^i+1), print1(i, ", ")));

Crossrefs

Cf. A141797.

Sequence in context: A268608 A058079 A076787 * A094963 A255490 A045446

Adjacent sequences: A332760 A332761 A332762 * A332764 A332765 A332766

Keyword

nonn,more

Author

Paul S. Vanderveen, Feb 22 2020

Extensions

a(19) from Paul S. Vanderveen, Mar 09 2020

a(20) from Paul S. Vanderveen, Mar 15 2020

Status

approved