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

Author

Giovanni Teofilatto, Dec 29 2007

Keywords

• nonn

Programs

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

Extensions

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