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.

A303949 Number of ways to write 2*n+1 as p + 2*(2^k+5^m) with p prime and 2^k+5^m a product of at most three distinct primes, where k and m are nonnegative integers.

Original entry on oeis.org

0, 0, 1, 2, 2, 2, 3, 5, 3, 3, 4, 3, 3, 4, 3, 4, 3, 4, 3, 4, 4, 5, 5, 4, 4, 5, 5, 6, 4, 3, 6, 7, 3, 6, 9, 7, 5, 8, 7, 6, 7, 9, 7, 8, 2, 8, 9, 5, 5, 6, 6, 7, 6, 6, 7, 10, 6, 7, 9, 5, 6, 8, 6, 3, 6, 7, 7, 8, 5, 10, 9, 8, 5, 9, 5, 7, 10, 5, 4, 10, 7, 6, 8, 6, 7, 8, 7, 6, 8, 6
Offset: 1

Views

Author

Zhi-Wei Sun, May 05 2018

Keywords

Comments

4787449 is the first value of n > 2 with a(n) = 0, and 2*4787449+1 = 9574899 has the unique representation as p + 2*(2^k+5^m): 9050609 + 2*(2^18+5^0) with 9050609 prime and 2^18+5^0 = 5*13*37*109.
See also A303934 and A304081 for related conjectures.

Examples

			a(3) = 1 since 2*3+1 = 3 + 2*(2^0+5^0) with 3 prime.
		

Crossrefs

Programs

  • Mathematica
    qq[n_]:=qq[n]=SquareFreeQ[n]&&Length[FactorInteger[n]]<=3;
    tab={};Do[r=0;Do[If[SquareFreeQ[2^k+5^m]&&PrimeQ[2n+1-2(2^k+5^m)],r=r+1],{k,0,Log[2,n]},{m,0,Log[5,n+1/2-2^k]}];tab=Append[tab,r],{n,1,90}];Print[tab]