

A124887


Least positive k such that n * 2^n + k is prime.


0



1, 3, 5, 3, 3, 5, 11, 5, 13, 3, 3, 5, 5, 17, 7, 7, 19, 25, 15, 9, 61, 49, 7, 5, 17, 5, 13, 3, 9, 29, 33, 9, 73, 13, 39, 5, 53, 39, 7, 3, 7, 5, 45, 5, 19, 19, 73, 31, 141, 83, 29, 49, 25, 11, 21, 53, 37, 49, 39, 13, 41, 9, 47, 25, 61, 139, 33, 11, 133, 39, 93, 49, 93, 41, 7, 15, 67, 121
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


REFERENCES

J. Earls, Red Zen, Lulu Press, NY, 2006, p. 135.


LINKS



MATHEMATICA

lpk[n_]:=Module[{c=n*2^n, k=1}, While[!PrimeQ[c+k], k=k+2]; k]; Array[lpk, 80] (* Harvey P. Dale, Oct 08 2017 *)


CROSSREFS



KEYWORD

easy,nonn


AUTHOR



STATUS

approved



