|
| |
| |
|
|
|
1, 3, 4, 7, 36, 9, 288, 15, 13, 46, 259, 19, 119, 302, 51, 31, 214, 27, 519, 66, 309, 281, 633, 39, 658, 145, 40, 330, 442, 76, 101104, 63, 292, 248, 540, 55, 535, 557, 158, 106, 101331, 344, 1338, 325, 96, 679, 100979, 79, 806, 708, 265, 197, 399, 81, 102316, 386
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
|
|
|
FORMULA
|
|
|
|
MATHEMATICA
|
A375265[n_] := Which[Divisible[n, 3], n/3, Divisible[n, 2], n/2, True, 3*n + 1];
Array[Total[NestWhileList[A375265, #, # > 1 &]] &, 100]
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn,easy,changed
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
