A119986 Least positive k such that k * 10^n + prime(n) is prime.

1, 6, 19, 5, 6, 17, 6, 6, 10, 2, 15, 17, 3, 9, 7, 48, 32, 12, 39, 9, 17, 18, 27, 1, 50, 36, 18, 3, 11, 44, 19, 45, 46, 78, 36, 36, 5, 20, 33, 41, 127, 42, 12, 63, 16, 33, 31, 42, 8, 6, 98, 57, 21, 47, 22, 91, 21, 45, 24, 1, 3, 12, 72, 57, 51, 129, 351, 8, 23, 87, 88, 108, 80, 120, 4, 3

Offset

4,2

References

J. Earls & J. Rogers, 0.1361015212836455566..., Lulu Press, NY, 2006, p. 22.

Links

Table of n, a(n) for n=4..79.

Amazon.com, 0.1361015212836455566...(Title of split novel)

Mathematica

lpk[n_]:=Module[{k=1, c=10^n, p=Prime[n]}, While[!PrimeQ[k*c+p], k++]; k]; Array[ lpk, 80, 4] (* Harvey P. Dale, Sep 01 2020 *)

Crossrefs

Sequence in context: A130437 A119813 A370716 * A245869 A370155 A184197

Adjacent sequences: A119983 A119984 A119985 * A119987 A119988 A119989

Keyword

easy,nonn

Author

Jason Earls, Aug 03 2006

Status

approved