A169855 - OEIS

%I #13 Dec 02 2021 10:13:35

%S 12,2,4,6,3,9,15,5,10,8,14,7,21,18,16,20,22,11,33,24,26,13,39,27,30,

%T 25,35,28,32,34,17,51,36,38,19,57,42,40,44,46,23,69,45,48,50,52,54,56,

%U 49,63,60,55,65,70,58,29,87,66,62,31,93,72,64,68,74,37,111,75,78,76,80,82,41

%N EKG sequence started at 12 instead of 2.

%C A generalization of A064413.

%H Peter Kagey, <a href="/A169855/b169855.txt">Table of n, a(n) for n = 1..10000</a>

%o (Python)

%o from math import gcd

%o def aupton(terms):

%o     alst, aset = [12], {12}

%o     for n in range(2, terms+1):

%o         k = 2

%o         while True:

%o             while k in aset: k += 1

%o             if gcd(alst[-1], k) != 1:

%o                 alst.append(k); aset.add(k); break

%o             k += 1

%o     return alst

%o print(aupton(73)) # _Michael S. Branicky_, Dec 02 2021

%Y For other initial terms, see A064413, A169837, A169839, A169841, A169843,A169845, A169847, A169849, A169851, A169853.

%K nonn

%O 1,1

%A _T. D. Noe_ and _N. J. A. Sloane_, Jun 02 2010