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.

Showing 1-3 of 3 results.

A192861 Flat numbers: odd n such that n+1 is a squarefree number times a power of two.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 13, 15, 19, 21, 23, 25, 27, 29, 31, 33, 37, 39, 41, 43, 45, 47, 51, 55, 57, 59, 61, 63, 65, 67, 69, 73, 75, 77, 79, 81, 83, 85, 87, 91, 93, 95, 101, 103, 105, 109, 111, 113, 115, 117, 119, 121, 123, 127, 129, 131, 133, 135, 137, 139, 141
Offset: 1

Views

Author

Keywords

Crossrefs

Cf. A192862.

Programs

  • PARI
    is(n)=n%2&&issquarefree((n+1)>>valuation(n+1,2))
    
  • PARI
    list(lim)=my(v=List()); for(k=1,logint(1+lim\=1,2), forsquarefree(n=1,(lim+1)>>k, listput(v, n[1]<Charles R Greathouse IV, Mar 01 2018

Formula

a(n) ~ Pi^2/4 * n.

A192863 Lower flat numbers: odd numbers k such that k-1 is a squarefree number times a power of two.

Original entry on oeis.org

3, 5, 7, 9, 11, 13, 15, 17, 21, 23, 25, 27, 29, 31, 33, 35, 39, 41, 43, 45, 47, 49, 53, 57, 59, 61, 63, 65, 67, 69, 71, 75, 77, 79, 81, 83, 85, 87, 89, 93, 95, 97, 103, 105, 107, 111, 113, 115, 117, 119, 121, 123, 125, 129, 131, 133, 135, 137, 139, 141, 143, 147
Offset: 1

Views

Author

Keywords

Crossrefs

Cf. A185199 (asymptotic density of this sequence).

Programs

  • Mathematica
    Select[Range[3, 150, 2], SquareFreeQ[(# - 1)/2^IntegerExponent[# - 1, 2]] &] (* Amiram Eldar, Aug 30 2020 *)
  • PARI
    is(n)=n%2&&issquarefree((n-1)>>valuation(n-1,2)) \\ corrected by Amiram Eldar, Aug 30 2020

Formula

a(n) ~ Pi^2/4 * n.

Extensions

Data corrected by Amiram Eldar, Aug 30 2020

A192864 Lower flat primes: odd primes p such that p-1 is a squarefree number times a power of two.

Original entry on oeis.org

3, 5, 7, 11, 13, 17, 23, 29, 31, 41, 43, 47, 53, 59, 61, 67, 71, 79, 83, 89, 97, 103, 107, 113, 131, 137, 139, 149, 157, 167, 173, 179, 191, 193, 211, 223, 227, 229, 233, 239, 241, 257, 263, 269, 277, 281, 283, 293, 311, 313, 317, 331, 337, 347, 349, 353, 359
Offset: 1

Views

Author

Keywords

Comments

Broughan & Qizhi show that this sequence has relative density 2*A in the primes, where A = A005596 is Artin's constant. Consequently, there exists a flat number between x and (1+e)x for every e > 0 and large enough x.

Crossrefs

Subsequence of A192863.

Programs

  • Mathematica
    Select[Range[3, 360, 2], PrimeQ[#] && SquareFreeQ[(# - 1)/2^IntegerExponent[# - 1, 2]] &] (* Amiram Eldar, Aug 30 2020 *)
  • PARI
    is(n)=n%2&&isprime(n)&&issquarefree((n-1)>>valuation(n-1,2)) \\ corrected by Amiram Eldar, Aug 30 2020

Formula

a(n) ~ k * n * log(n) with k = 1/(2*A) = 1.3370563...

Extensions

Data corrected by Amiram Eldar, Aug 30 2020
Showing 1-3 of 3 results.