|
| |
| |
| |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| What is the first number n such that A160691(n) is not in the set {1,2,6,8,12}?
|
|
|
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
| Cf. A158963, A160689, A160690, A160691.
Sequence in context: A122711 A061332 A204875 * A202404 A203882 A178284
Adjacent sequences: A158961 A158962 A158963 * A158965 A158966 A158967
|
|
|
KEYWORD
| more,nonn
|
|
|
AUTHOR
| Farideh Firoozbakht (mymontain(AT)yahoo.com), May 29 2009
|
| |
|
|
