OFFSET
1,2
REFERENCES
J. Earls, Red Zen, Lulu Press, NY, 2006, p. 135.
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
Jason Earls, May 19 2007
STATUS
approved