A378085 -id:A378085 - cp's OEIS frontend

A377782 First-differences of A031218(n) = greatest number <= n that is 1 or a prime-power.

1, 1, 1, 1, 0, 2, 1, 1, 0, 2, 0, 2, 0, 0, 3, 1, 0, 2, 0, 0, 0, 4, 0, 2, 0, 2, 0, 2, 0, 2, 1, 0, 0, 0, 0, 5, 0, 0, 0, 4, 0, 2, 0, 0, 0, 4, 0, 2, 0, 0, 0, 4, 0, 0, 0, 0, 0, 6, 0, 2, 0, 0, 3, 0, 0, 3, 0, 0, 0, 4, 0, 2, 0, 0, 0, 0, 0, 6, 0, 2, 0, 2, 0, 0, 0, 0, 0

Offset: 1

Gus Wiseman, Nov 16 2024

nonn

Note 1 is a power of a prime (A000961) but not a prime-power (A246655).

Positions of 1 are A006549.
Positions of 0 are A080765 = A024619 - 1, complement A181062 = A000961 - 1.
Positions of 2 are A120432 (except initial terms).
Sorted positions of first appearances appear to include A167236 - 1.
Positions of terms > 1 are A373677.
The restriction to primes minus 1 is A377289.
Below, A (B) indicates that A is the first-differences of B:
- This sequence is A377782 (A031218), which has restriction to primes A065514 (A377781).
- The opposite is A377780 (A000015), restriction A377703 (A345531).
- For nonsquarefree we have A378036 (A378033), opposite A378039 (A120327).
- For squarefree we have A378085 (A112925), restriction A378038 (A070321).
A000040 lists the primes, differences A001223.
A000961 and A246655 list prime-powers, differences A057820.
A024619 lists the non-prime-powers, differences A375735, seconds A376599.
A361102 lists the non-powers of primes, differences A375708.
A378034 gives differences of A378032 (restriction of A378033).
Prime-powers between primes: A053607, A080101, A366833, A377057, A377286, A377287.
Cf. A053289, A343249, A375706, A377281, A377282.

Differences[Table[NestWhile[#-1&,n,#>1&&!PrimePowerQ[#]&],{n,100}]]

A384420 The number of exponentially squarefree prime powers (not including 1) that divide n.

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 3, 1, 2, 2, 3, 1, 3, 1, 3, 2, 2, 1, 4, 2, 2, 3, 3, 1, 3, 1, 5, 2, 2, 2, 4, 1, 2, 2, 4, 1, 3, 1, 3, 3, 2, 1, 4, 2, 3, 2, 3, 1, 4, 2, 4, 2, 2, 1, 4, 1, 2, 3, 6, 2, 3, 1, 3, 2, 3, 1, 5, 1, 2, 3, 3, 2, 3, 1, 4, 3, 2, 1, 4, 2, 2, 2

Offset: 1

Amiram Eldar, May 28 2025

The number of terms in A384419 that are larger than 1 and divide n.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A070321, A077761, A378085, A384419, A384421.

s[n_] := Module[{k = n}, While[! SquareFreeQ[k], k--]; k]; f[p_, e_] := s[e]; a[1] = 0; a[n_] := Plus @@ f @@@ FactorInteger[n]; Array[a, 100]

s(n) = while(!issquarefree(n), n--); n;
a(n) = vecsum(apply(s, factor(n)[, 2]));

Additive with a(p^e) = A070321(e).

Sum_{k=1..n} a(k) ~ n*(log(log(n)) + B + C), where B is Mertens's constant (A077761), and C = Sum_{p prime, e>=2} A378085(e-1)/p^e = 0.72770645470600638249... .

A386468 The maximum exponent in the prime factorization of the largest exponentially squarefree divisor of n.

Original entry on oeis.org

0, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 1, 3, 1, 2, 1, 2, 1, 1, 1, 3, 2, 1, 3, 2, 1, 1, 1, 5, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 3, 2, 2, 1, 2, 1, 3, 1, 3, 1, 1, 1, 2, 1, 1, 2, 6, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 2, 2, 1, 1, 1, 3, 3, 1, 1, 2, 1, 1, 1

Offset: 1

Amiram Eldar, Jul 22 2025

First differs from A375428 at n = 64.
Differs from A368105 at n = 1, 36, 64, 72, 100, ... .
Except for a(1), all the terms are by definition squarefree numbers.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A005117, A051903, A070321, A365683, A368105, A375428, A378085.

a[n_] := Module[{k = Max[FactorInteger[n][[;; , 2]]]}, While[! SquareFreeQ[k], k--]; k]; a[1] = 0; Array[a, 100]

a(n) = if(n == 1, 0, my(k = vecmax(factor(n)[,2])); while(!issquarefree(k), k--); k);

a(n) = A051903(A365683(n)).
a(n) = A070321(A051903(n)) for n >= 2.
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 1 + Sum_{k>=2} A378085(k-1)*(1-1/zeta(k)) = 1.66055078443790141429... .

cp's OEIS Frontend

A377782 First-differences of A031218(n) = greatest number <= n that is 1 or a prime-power.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A384420 The number of exponentially squarefree prime powers (not including 1) that divide n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A386468 The maximum exponent in the prime factorization of the largest exponentially squarefree divisor of n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula