1,1

A generalization of A064413.

a(n) = A064413(n+1) for n > 43; a(n) = A169849(n) for n > 9. - Reinhard Zumkeller, Jul 04 2014

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Gordon Hamilton, The EKG Sequence and the Tree of Numbers

Eric Weisstein's World of Mathematics, EKG Sequence

Index entries for sequences related to EKG sequence

(Haskell)

import Data.List (delete)

a169837 n = a169837_list !! (n-1)

a169837_list = 3 : ekg 3 (2 : [4..]) where

ekg x zs = f zs where

f (y:ys) = if gcd x y > 1 then y : ekg y (delete y zs) else f ys

-- Reinhard Zumkeller, Jul 04 2014

Cf. A064413, A064417, A169849.

Sequence in context: A308315 A200474 A154858 * A319513 A160590 A111952

Adjacent sequences: A169834 A169835 A169836 * A169838 A169839 A169840

nonn

T. D. Noe and N. J. A. Sloane, Jun 02 2010

approved