OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..640
R. Zumkeller, Products of largest prime factors of numbers <= n
FORMULA
a(n) = (a(n-1) + 1) * A006530(n) - 1 for n>1, a(1) = 0;
MATHEMATICA
A104350[n_] := Product[FactorInteger[k][[-1, 1]], {k, 1, n}]; Table[A104350[n] - 1, {n, 1, 50}] (* G. C. Greubel, May 09 2017 *)
FoldList[Times, Table[FactorInteger[n][[-1, 1]], {n, 30}]]-1 (* Harvey P. Dale, May 28 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 06 2005
STATUS
approved