A133674 a(n) = |A061395(n+1) - A061395(n)|.

1, 1, 1, 2, 1, 2, 3, 1, 1, 2, 3, 4, 2, 1, 2, 6, 5, 6, 5, 1, 1, 4, 7, 1, 3, 4, 2, 6, 7, 8, 10, 4, 2, 3, 2, 10, 4, 2, 3, 10, 9, 10, 9, 2, 6, 6, 13, 2, 1, 4, 1, 10, 14, 3, 1, 4, 2, 7, 14, 15, 7, 7, 3, 5, 1, 14, 12, 2, 5, 16, 18, 19, 9, 9, 5, 3, 1, 16, 19, 1, 11, 10, 19, 3, 7, 4, 5, 19, 21, 3, 3, 2, 4, 7, 6

Offset

1,4

Links

Table of n, a(n) for n=1..95.

Mathematica

f[n_] := Abs[ PrimePi[ FactorInteger[n]][[ -1, 1]] - PrimePi[ FactorInteger[n + 1]][[ -1, 1]]]; Array[f, 95] (* Robert G. Wilson v *)
Abs[Differences[Table[PrimePi[FactorInteger[n][[-1, 1]]], {n, 100}]]] (* Harvey P. Dale, Jun 13 2022 *)

Crossrefs

Sequence in context: A327616 A181631 A348390 * A348245 A215026 A162319

Adjacent sequences: A133671 A133672 A133673 * A133675 A133676 A133677

Keyword

nonn

Author

Giovanni Teofilatto, Dec 29 2007

Extensions

Edited by Robert G. Wilson v and N. J. A. Sloane, Dec 30 2007

Status

approved