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.