|
|
A160665
|
|
Numbers k such that the arithmetic mean of the first k Lucas numbers A000032 is an integer.
|
|
2
|
|
|
1, 3, 24, 48, 72, 96, 120, 144, 192, 216, 240, 288, 336, 360, 384, 406, 432, 480, 576, 600, 648, 672, 720, 768, 864, 936, 960, 1008, 1080, 1104, 1152, 1200, 1224, 1296, 1320, 1344, 1368, 1440, 1536, 1680, 1728, 1800, 1920, 1944, 2016, 2160, 2208, 2304
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
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
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|