OFFSET
1,2
COMMENTS
Numbers n such that sum(i=0..n, A000032(i))/(n+1) is an integer. - Robert G. Wilson v, May 25 2009
Why do the terms in A141767 so closely correspond to A160665? Except for n = 1, 3, 406, 44758, 341446, 1413286, 3170242, 4861698, 7912534, ..., n == 0 (mod 24). - Robert G. Wilson v, May 25 2009
FORMULA
{n: n | A001610(n)}. - R. J. Mathar, May 25 2009
MAPLE
A000032 := proc(n) option remember ; if n <= 1 then 2-n; else procname(n-1)+procname(n-2) ; fi; end: A001610 := proc(n) add(A000032(i), i=0..n-1) ; end: for n from 1 to 3000 do if A001610(n) mod n = 0 then printf("%d, ", n) ; fi; od: # R. J. Mathar, May 25 2009
MATHEMATICA
lst = {}; a = 2; b = 1; s = 3; n = 3; While[n < 2447, c = a + b; s = s + c; If[Mod[c, n] == 0, AppendTo[lst, n]]; a = b; b = c; n++ ]; lst (* Robert G. Wilson v, May 25 2009 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ctibor O. Zizka, May 22 2009
EXTENSIONS
More terms from R. J. Mathar and Robert G. Wilson v, May 25 2009
STATUS
approved