A348441 Indices of records in A088177.
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
Keywords
Links
- Seiichi Manyama, Table of n, a(n) for n = 1..381
Programs
-
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 *) -
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
Comments