|
%I #2 Feb 11 2014 19:05:28
%S 1,-1,3,-2,4,-5,1,2,6,-8,10,-6,-2,-3,15,-14,16,-14,2,4,12,-20,2,8,-10,
%T 4,22,-24,26,-29,9,6,-10,-4,34,-18,-6,-8,36,-34,36,-32,-6,18,24,-44,4,
%U -2,12,-4,40,-50,8,-4,12,10,30,-54,56,-30,-24,-5,11,-2,56,-50,6,-16,64,-68,70,-36,-32,14,-8,2,66,-74,-2,38,42,-76
%N a(n)=LPF(n+1)-LPF(n), where LPF(n) denotes the largest prime factor of n.
%e a(12) = LPF(13)-LPF(12) = 13 - 3 = 10.
%t g[n_] := Module[{a, b}, a = FactorInteger[n]; b = Length[a]; a[[b]][[1]]]; f[n_] := g[n + 1] - g[n]; Table[f[i], {i, 2, 100}]
%K sign
%O 2,3
%A _Joseph L. Pe_, May 07 2002
|
