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.
%I A333392 #7 Mar 18 2020 16:26:08 %S A333392 1,3,7,29,117,1873,7493,119889,479557,7672913,491066433,1964265733, %T A333392 125713006913,2011408110609,8045632442437,128730119078993, %U A333392 8238727621055553,527278567747555393,2109114270990221573,134983313343374180673,2159733013493986890769,8638932053975947563077 %N A333392 a(0) = 1; thereafter a(n) = 2^(prime(n)-1) + Sum_{k=1..n} 2^(prime(n)-prime(k)). %F A333392 a(n) = floor(c * 2^prime(n)) for n > 0, where c = 0.91468250985... = 1/2 + A051006. %e A333392 a(7) = 119889 (in base 10) = 11101010001010001 (in base 2). %e A333392 ||| | | | | | %e A333392 123 5 7 1113 17 %t A333392 a[0] = 1; a[n_] := 2^(Prime[n] - 1) + Sum[2^(Prime[n] - Prime[k]), {k, 1, n}]; Table[a[n], {n, 0, 21}] %o A333392 (PARI) a(n) = if (n==0, 1, 2^(prime(n)-1) + sum(k=1, n, 2^(prime(n)-prime(k)))); \\ _Michel Marcus_, Mar 18 2020 %Y A333392 Cf. A000040, A008578, A010051, A034785, A051006, A072762, A076793, A080339, A080355, A121240, A139104, A333393. %K A333392 nonn %O A333392 0,2 %A A333392 _Ilya Gutkovskiy_, Mar 18 2020