|
|
|
|
2, 3, 4, 7, 15, 26, 31, 43, 98, 117, 140, 215, 540, 1945, 22279, 38459, 39461, 66869, 69328, 4047994, 4615259, 5617480, 5898979, 9685120, 9751023
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
This sequence gives indexes of multiplicative steps in A354833.
|
|
LINKS
|
|
|
EXAMPLE
|
For k = 7:
- so 7 is a term.
|
|
PROG
|
(PARI) { seen = Map(); v = 1; for (n=2, oo, mapput(seen, v, 0); v=if (mapisdefined(seen, w=v-n) || w<0, print1 (n", "); v*n, w)) }
(Python)
from itertools import count, islice
def agen():
an, seen = 1, {1}
for n in count(2):
t = an - n
if t not in seen and t >= 0: an = t
else: an *= n; yield n
seen.add(an)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|