A159262 Largest prime appearing as an exponent in the sum in A159261.
2, 3, 7, 11, 19, 191, 709, 1597, 16421
Offset: 1
Keywords
Programs
-
Mathematica
s=1; Reap[Do[s=s+2^Prime[n]; If[PrimeQ[s], Sow[Prime[n]]], {n,2000}]][[2,1]]
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.
s=1; Reap[Do[s=s+2^Prime[n]; If[PrimeQ[s], Sow[Prime[n]]], {n,2000}]][[2,1]]
1 is here because 1 + 2^2 = 5 is prime. 2 is here because 1 + 2^2 + 2^3 = 13 is prime. 4 is here because 1 + 2^2 + 2^3 + 2^5 + 2^7 = 173 is prime. 5 is here because 1 + 2^2 + 2^3 + 2^5 + 2^7 + 2^11 = 2111 is prime.
s=1; Reap[Do[s=s+2^Prime[n]; If[PrimeQ[s], Sow[n]], {n,2000}]][[2,1]]
Comments