login
A348441
Indices of records in A088177.
3
1, 3, 5, 7, 15, 17, 19, 34, 45, 47, 83, 85, 165, 169, 171, 181, 183, 193, 195, 205, 207, 533, 535, 561, 563, 585, 587, 784, 786, 1040, 1042, 1068, 1070, 1096, 1098, 1126, 1128, 1150, 1152, 1932, 1934, 1986, 1988, 2022, 2024, 2062, 2064, 2090, 2092, 2118, 2120, 2146, 2148, 2178, 2180, 2206, 2208
OFFSET
1,2
LINKS
MATHEMATICA
Block[{a, c, m = 1, n}, a = {1}~Join~Reap[Do[n = 1; While[IntegerQ[c[m n]], n++]; Sow[n]; Set[c[m n], i]; m = n, {i, 3000}]][[-1, -1]]; Map[FirstPosition[a, #][[1]] &, Union@ FoldList[Max, a]]] (* Michael De Vlieger, Oct 21 2021 *)
PROG
(Python)
from itertools import islice
def A348441(): # generator of terms
yield 1
c, p, a, i = 1, {1}, 1, 2
while True:
n, na = 1, a
while na in p:
n += 1
na += a
p.add(na)
a = n
i += 1
if c < n:
c = n
yield i
A348441_list = list(islice(A348441(), 100)) # Chai Wah Wu, Oct 21 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 21 2021
STATUS
approved