A133674 - OEIS

%I #8 Jun 13 2022 15:51:35

%S 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,

%T 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,

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

%N a(n) = |A061395(n+1) - A061395(n)|.

%t f[n_] := Abs[ PrimePi[ FactorInteger[n]][[ -1, 1]] - PrimePi[ FactorInteger[n + 1]][[ -1, 1]]]; Array[f, 95] (* _Robert G. Wilson v_ *)

%t Abs[Differences[Table[PrimePi[FactorInteger[n][[-1,1]]],{n,100}]]] (* _Harvey P. Dale_, Jun 13 2022 *)

%K nonn

%O 1,4

%A _Giovanni Teofilatto_, Dec 29 2007

%E Edited by _Robert G. Wilson v_ and _N. J. A. Sloane_, Dec 30 2007