OFFSET
1,1
COMMENTS
The Mathematica Program does not produce a(2). Conjecture: sequence is defined for all k>=2.
EXAMPLE
P(2)/2=3, 3-2^0=2 is prime, so a(2)=2;
P(5)/2=1155, 1155-2^1=1153 is prime, so a(5)=1153;
MATHEMATICA
nmax = 2^8192; npd = 1; n = 2; npd = npd*Prime[n]; While[npd < nmax, tt = 2; cp = npd - tt; While[(cp > 1) && (! (PrimeQ[cp])), tt = tt*2; cp = npd - tt]; If[cp < 2, Print["*"], Print[cp]]; n = n + 1; npd = npd*Prime[n]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Lei Zhou, Feb 15 2005
STATUS
approved