A284724 - OEIS

A284724

a(n) = (1/2) * smallest even number missing from [A280864(1), ..., A280864(n-1)].

1, 1, 2, 3, 3, 4, 5, 5, 6, 7, 7, 7, 8, 9, 9, 9, 10, 10, 12, 13, 13, 13, 15, 15, 15, 15, 16, 16, 16, 16, 18, 18, 18, 20, 20, 20, 20, 20, 20, 20, 20, 22, 22, 22, 22, 22, 25, 25, 25, 25, 25, 27, 27, 27, 28, 28, 28, 30, 30, 30, 30, 32, 32, 32, 32, 33, 33, 33, 35, 35, 35, 35, 36, 36, 36, 36, 40, 40, 40, 42

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

COMMENTS

For k>=1, n>=1, let B_k(n) = smallest multiple of k missing from [A280864(1), ..., A280864(n-1)]. Sequence gives values of B_2(n)/2.

The analogous sequences B_k(n) for the EKG sequence A064413 were important for the analysis of that sequence, so they may also be useful for studying A280864.

LINKS

Rémy Sigrist, Table of n, a(n) for n = 1..10000

J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG sequence, arXiv:math/0204011 [math.NT], 2002.

J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG Sequence, Exper. Math. 11 (2002), 437-446.

EXAMPLE

The initial terms of A280864 are 1,2,4,3,6,8,... The smallest missing even number from [1,2,4,3,6] is 8, so a(6) = 8/2 = 4.

MAPLE

mex := proc(L)

local k;

for k from 1 do

if not k in L then

return k;

end if;

end do:

end proc:

read b280864;

k:=2; a:=[1, 1]; ML:=[]; B:=1;

for n from 2 to 120 do

t:=b280864[n];

if (t mod k) = 0 then

ML:=[op(ML), t/k];

B:=mex(ML);

a:=[op(a), B];

else

a:=[op(a), B];

fi;

od:

MATHEMATICA

terms = 80; rad[n_] := Times @@ FactorInteger[n][[All, 1]];

A280864 = Reap[present = 0; p = 1; pp = 1; Do[forbidden = GCD[p, pp]; mandatory = p/forbidden; a = mandatory; While[BitGet[present, a] > 0 || GCD[forbidden, a] > 1, a += mandatory]; Sow[a]; present += 2^a; pp = p; p = rad[a], terms]][[2, 1]];

Clear[a];

a[1] = 1;

a[n_] := a[n] = For[b = 2a[n-1], True, b += 2, If[FreeQ[A280864[[1 ;; n-1]], b], Return[b/2]]];

Array[a, terms] (* Jean-François Alcover, Nov 23 2017, after Rémy Sigrist program for A280864 *)

CROSSREFS

Cf. A280864, A064413, A284725, A284726.

Sequence in context: A024811 A284006 A131138 * A189579 A278617 A194640

Adjacent sequences: A284721 A284722 A284723 * A284725 A284726 A284727

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Apr 06 2017

STATUS

approved