cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A073924 Smallest power of 2 that is greater than the previous term such that every partial sum (n>1) is a prime.

This page as a plain text file.
%I A073924 #12 Dec 15 2017 17:35:59
%S A073924 1,2,4,16,128,65536,9007199254740992,73786976294838206464,
%T A073924 205688069665150755269371147819668813122841983204197482918576128
%N A073924 Smallest power of 2 that is greater than the previous term such that every partial sum (n>1) is a prime.
%C A073924 Next term 2^1752 is too large to include.
%e A073924 a(5) is 128 because it is the next power of 2 greater than 16 such that 1 + 2 + 4 + 16 + x is prime.
%t A073924 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 *)
%Y A073924 Cf. A073923.
%K A073924 nonn
%O A073924 1,2
%A A073924 _Amarnath Murthy_, Aug 19 2002
%E A073924 More terms from _Jason Earls_, Sep 03 2002