OFFSET
1,1
COMMENTS
The first triples with value 2, 4, 6, 8 are for n=2, 18, 344349, 107486. - Michel Marcus, Sep 07 2017
MATHEMATICA
d[n_]:=DivisorSigma[0, m]; c[1]=1; c[n_]:=c[n]=(s=Sum[c[k], {k, n-1}]; For[m=1, d[m] !=
d[s+m], m++ ]; m); Do[If[d[c[n]]==d[c[n+1]]==d[c[n+2]]==8, Print[n]], {n, 223000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Farideh Firoozbakht, May 29 2009
EXTENSIONS
More terms from Michel Marcus, Sep 05 2017
STATUS
approved