login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A352192 Indices of records in A352187. 4
1, 2, 3, 4, 6, 7, 11, 12, 15, 16, 19, 20, 23, 25, 28, 29, 34, 38, 41, 45, 49, 82, 141, 216, 219, 239, 266, 273, 420, 610, 666, 756, 841, 928, 1199, 1216, 1271, 2023, 2050, 2584, 3090, 3818, 4934, 5744, 5752, 5780, 6040, 6052, 6155, 7559, 9006, 9419, 9611, 10114, 10205, 10605, 10818, 13539, 17136, 17992, 18172 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..61.

PROG

(Python)

from math import gcd

from itertools import count, islice

from sympy import primefactors

def A352192_gen(): # generator of terms

bset, blist, mmax, c = {1, 2}, [1, 2], 3, 2

yield from blist

for n in count(3):

for m in count(mmax):

if gcd(m, blist[-1]) > 1 and m not in bset:

if all(blist[-2] % p == 0 for p in primefactors(blist[-1])) or gcd(m, blist[-2]) == 1:

if m > c:

yield n

c = m

blist = [blist[-1], m]

bset.add(m)

while mmax in bset:

mmax += 1

break

A352192_list = list(islice(A352192_gen(), 30)) # Chai Wah Wu, Mar 14 2022

CROSSREFS

Cf. A352187, A352191.

Sequence in context: A184966 A018723 A088412 * A074177 A036470 A111243

Adjacent sequences: A352189 A352190 A352191 * A352193 A352194 A352195

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Mar 13 2022

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 5 03:48 EST 2023. Contains 360082 sequences. (Running on oeis4.)