[go: up one dir, main page]

login
A118030
a(1)=1. a(n) = a(n-1) + (largest integer which is <= n and occurs among the earlier terms of the sequence).
5
1, 2, 4, 8, 12, 16, 20, 28, 36, 44, 52, 64, 76, 88, 100, 116, 132, 148, 164, 184, 204, 224, 244, 264, 284, 304, 324, 352, 380, 408, 436, 464, 492, 520, 548, 584, 620, 656, 692, 728, 764, 800, 836, 880, 924, 968, 1012, 1056, 1100, 1144, 1188, 1240, 1292, 1344, 1396, 1448, 1500, 1552, 1604, 1656, 1708, 1760
OFFSET
1,2
LINKS
MATHEMATICA
a = {1}; Do[k = i + 1; While[Nand[MemberQ[a, k], k <= i + 1], k--]; AppendTo[a, a[[i]] + k], {i, 61}]; a (* Michael De Vlieger, Sep 19 2017 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Apr 10 2006
EXTENSIONS
More terms from Melissa Donovan (msd181(AT)psu.edu), Apr 23 2006
STATUS
approved