|
|
A373054
|
|
Numbers k that divide the k-th tetranacci number (A000078).
|
|
1
|
|
|
1, 2, 22, 32, 80, 137, 179, 272, 320, 352, 600, 653, 859, 936, 991, 1279, 1280, 1306, 1601, 1609, 1632, 1672, 1982, 2089, 2152, 2437, 2560, 2591, 2693, 2789, 2897, 3120, 3202, 3701, 3823, 3847, 4110, 4212, 4451, 4691, 4751, 4919, 5120, 5182, 5280, 5386, 5431, 5479
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Numbers k such that k | A000078(k).
|
|
LINKS
|
|
|
EXAMPLE
|
22 is a term since A000078(22) = 147312 = 22 * 6696 is divisible by 22.
|
|
MATHEMATICA
|
With[{m = 10000}, Position[LinearRecurrence[{1, 1, 1, 1}, {0, 0, 1, 1}, m]/Range[m], _?IntegerQ] // Flatten]
|
|
PROG
|
(PARI) lista(kmax) = {my(t0 = 0, t1 = 0, t2 = 0, t3 = 1, t4 = 0); print1(1, ", ", 2, ", "); for(k = 4, kmax, t4 = t0 + t1 + t2 + t3; if(!(t4%k), print1(k, ", ")); t0 = t1; t1 = t2; t2 = t3; t3 = t4); }
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|