|
0, 1, 2, 2, 6, 5, 4, 6, 41, 7, 86, 129, 97, 68, 49, 68, 49, 287, 102, 137, 102, 137, 385, 538, 183, 513, 361, 511, 338, 481, 681, 1791, 161, 855, 605, 801, 271, 751, 538, 356, 1939, 1325, 890, 637, 111, 1194, 380, 2111, 755, 1977, 163, 1887, 601, 1701, 563, 12403, 513, 1491, 7802
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
A368228[n_]:=Nest[If[Divisible[#, 3], 2#/3, Round[4#/3]]&, n, n];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|