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);

A371241 Euler totient function applied to the zeroless numbers in base 3 (A032924).

Original entry on oeis.org

1, 1, 2, 4, 6, 4, 12, 6, 8, 16, 10, 22, 20, 12, 16, 40, 42, 20, 42, 20, 24, 52, 66, 32, 24, 70, 36, 60, 78, 32, 110, 60, 60, 100, 48, 130, 108, 66, 72, 148, 150, 72, 156, 78, 64, 132, 100, 168, 160, 102, 210, 104, 106, 168, 228, 88, 112, 232, 96, 238, 240, 110
Offset: 1

Views

Author

Amiram Eldar, Mar 16 2024

Keywords

Crossrefs

Programs

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

Formula

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