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-2 of 2 results.

A371239 Squarefree numbers that are zeroless in base 3 (A032924).

Original entry on oeis.org

1, 2, 5, 7, 13, 14, 17, 22, 23, 26, 41, 43, 53, 67, 70, 71, 77, 79, 122, 130, 131, 133, 134, 149, 151, 157, 158, 161, 202, 203, 205, 206, 211, 214, 215, 229, 230, 233, 238, 239, 241, 365, 367, 373, 374, 377, 391, 394, 395, 401, 403, 445, 446, 449, 454, 455, 457
Offset: 1

Views

Author

Amiram Eldar, Mar 16 2024

Keywords

Comments

The relative asymptotic density of this sequence within the zeroless numbers in base 3 is 27/(4*Pi^2) = 1/A214549 = 0.683917... (Banks and Shparlinski, 2004).

Crossrefs

Intersection of A005117 and A032924.

Programs

  • Mathematica
    Select[Range[500], !MemberQ[IntegerDigits[#, 3], 0] && SquareFreeQ[#] &]
  • PARI
    is(n) = vecmin(digits(n, 3)) > 0 && issquarefree(n);

A371240 The sum of divisors of the zeroless numbers in base 3 (A032924).

Original entry on oeis.org

1, 3, 7, 6, 8, 15, 14, 24, 31, 18, 36, 24, 31, 42, 90, 42, 44, 84, 57, 93, 98, 54, 68, 126, 144, 72, 140, 96, 80, 186, 133, 186, 224, 156, 252, 132, 160, 204, 266, 150, 152, 300, 158, 240, 378, 192, 306, 240, 252, 312, 212, 378, 324, 264, 230, 432, 450, 234, 432
Offset: 1

Views

Author

Amiram Eldar, Mar 16 2024

Keywords

Crossrefs

Programs

  • Mathematica
    DivisorSigma[1, Select[Range[300], !MemberQ[IntegerDigits[#, 3], 0] &]]
  • PARI
    lista(kmax) = for(k = 1, kmax, if(vecmin(digits(k, 3)) > 0, print1(sigma(k), ", ")));

Formula

a(n) = A000203(A032924(n)).
Asymptotic mean of the abundancy index of A032924: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k)/A032924(k) = 4*Pi^2/27 = 1.462163... (A214549) (Banks and Shparlinski, 2004).
Showing 1-2 of 2 results.