|
|
A073924
|
|
Smallest power of 2 that is greater than the previous term such that every partial sum (n>1) is a prime.
|
|
7
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Next term 2^1752 is too large to include.
|
|
LINKS
|
|
|
EXAMPLE
|
a(5) is 128 because it is the next power of 2 greater than 16 such that 1 + 2 + 4 + 16 + x is prime.
|
|
MATHEMATICA
|
a[1] = 1; a[n_] := Block[{k = a[n - 1] + 1, s = Plus @@ (2^Array[a, n - 1])}, While[ !PrimeQ[s + 2^k], k++ ]; k]; Array[2^a[ # ] &, 9] (* Robert G. Wilson v, Jan 31 2006 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|