login
A133674
a(n) = |A061395(n+1) - A061395(n)|.
1
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
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
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