OFFSET
1,3
EXAMPLE
The 7th row of triangle A112592 is [6,3,3,3,0,3,3]. So a(7) = 6+3+3+3+0+3+3 = 21.
MATHEMATICA
f[l_] := Block[{p, t}, p = l[[ -1]]; k = Length @ p; t = Table[Count[GCD[p, n], 1], {n, k + 1}]; Return @ Append[l, t]; ]; Plus @@@ Nest[f, {{0}}, 52] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Dec 27 2005
EXTENSIONS
More terms from Robert G. Wilson v, Dec 28 2005
Typos in Mma program corrected by Giovanni Resta, Jun 12 2016
STATUS
approved