Search: a070868 -id:a070868
|
|
|
|
1, 3, 6, 8, 13, 15, 19, 26, 28, 32, 34, 47, 49, 53, 57, 59, 73, 80, 82, 88, 92, 104, 109, 123, 125, 127, 135, 139, 143, 147, 168, 193, 182, 184, 188, 194, 196, 204, 208, 214, 257, 250, 259, 261, 263, 269, 277, 275, 287, 309, 305, 313, 315, 352, 366, 375, 362
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
a[1] = a[2] = 1; a[n_] := a[n] = a[a[n - 1]] + a[n + 1 - 2*a[n - 1]]; b = Table[0, {100}]; Do[c = a[n]; If[c < 101 && b[[c]] == 0, b[[c]] = n], {n, 1, 10^3}]; b
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
Search completed in 0.008 seconds
|