|
%I #14 Sep 07 2017 12:05:24
%S 107486,126785,160804,162574,200559,222165,265520,290313,315707,
%T 318773,374503,375852,381663,411843,414979,420016,440389,451070,
%U 451637,456681,469794,488232,500727,503603,510728,521342,522953,525526,526171,536413,541116,552763,553368,555582
%N Numbers n such that A160691(n) = A160691(n+1) = A160691(n+2) = 8.
%C The first triples with value 2, 4, 6, 8 are for n=2, 18, 344349, 107486. - _Michel Marcus_, Sep 07 2017
%t d[n_]:=DivisorSigma[0,m];c[1]=1;c[n_]:=c[n]=(s=Sum[c[k],{k,n-1}];For[m=1,d[m] !=
%t d[s+m],m++ ];m);Do[If[d[c[n]]==d[c[n+1]]==d[c[n+2]]==8,Print[n]],{n,223000}]
%Y Cf. A158963, A160689, A160690, A160691.
%K nonn
%O 1,1
%A _Farideh Firoozbakht_, May 29 2009
%E More terms from _Michel Marcus_, Sep 05 2017
|
