OFFSET
0,1
EXAMPLE
a(0) = 2, a(1) = 5, a(2) = 3 a(5) = 13 as 2^5 = 32 divides 14*15*16 but 2^6=64 does not.
MATHEMATICA
f[n_] := Block[{k = 1}, While[ Mod[Times @@ Select[ Range[Prime@k, Prime[k + 1]], ! PrimeQ@# &], 2^n] != 0 || Mod[Times @@ Select[ Range[Prime@k, Prime[k + 1]], ! PrimeQ@# &], 2^(n + 1)] == 0, k++ ]; Prime@k]; Table[ f[n], {n, 0, 45}] (* Robert G. Wilson v, Apr 06 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Nov 02 2002
EXTENSIONS
More terms from Robert G. Wilson v, Apr 06 2006
STATUS
approved