0,1
Table of n, a(n) for n=0..31.
a(n) = A000079(n) + A059959(n).
f[n_] := Block[{k = 0}, While[ !PrimeQ[2^n - k] && !PrimeQ[2^n + k], k++ ]; Min@Select[{2^n - k, 2^n + k}, PrimeQ@# &]]
Sequence in context: A038075 A032236 A128776 * A113842 A032161 A265801
Adjacent sequences: A117384 A117385 A117386 * A117388 A117389 A117390
nonn
Lekraj Beedassy, Mar 11 2006
Edited, corrected and extended by Robert G. Wilson v, Mar 14 2006
approved