

A295640


Smallest k not divisible by 5 such that k*5^n + 1 is prime.


3



2, 4, 2, 18, 12, 4, 12, 24, 26, 18, 42, 28, 2, 16, 18, 34, 92, 4, 12, 46, 26, 16, 6, 36, 26, 16, 6, 16, 152, 18, 42, 136, 6, 162, 132, 58, 24, 142, 48, 22, 56, 16, 36, 84, 2, 12, 24, 108, 168, 4, 12, 214, 36, 114, 12, 444, 26, 54, 416, 42
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

The ratio (Sum_(n=1..t) a(n)) / (Sum_(n=1..t) n) tends to log(5) as t increases.


LINKS

Pierre CAMI, Table of n, a(n) for n = 1..2999


MATHEMATICA

Array[Block[{k = 2}, While[Or[Divisible[k, 5], ! PrimeQ[k 5^# + 1]], k++]; k] &, 60] (* Michael De Vlieger, Dec 18 2017 *)


PROG

(PARI) a(n) = {k = 1; while (!isprime(k*5^n+1), k++; if (!(k%5), k++)); k; } \\ Michel Marcus, Nov 25 2017


CROSSREFS

Cf. A057778, A295639, A295641.
Sequence in context: A100944 A295390 A059890 * A210457 A006496 A263931
Adjacent sequences: A295637 A295638 A295639 * A295641 A295642 A295643


KEYWORD

nonn


AUTHOR

Pierre CAMI, Nov 25 2017


STATUS

approved



