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