A220891 Where record values occur in A187824.

2, 3, 4, 5, 29, 41, 55, 71, 791, 1079, 30239, 246960, 636481, 1360800, 2162161, 39412801, 107881201, 3625549201, 170918748000, 2355997644001, 237662810985599, 4614209634434399, 7522575180120001, 362645725505263201, 10684484093105222399, 442709913651892286399, 5205240636387758366399

Offset

1,1

Comments

Since A187824 is unbounded, this sequence is infinite.

Links

Robert Israel, Table of n, a(n) for n = 1..30

Maple

N:= 20: # number of record values wanted
R[1]:= 2: R[2]:= 3: r:= 3: count:= 2:
S[3]:= {$0..5}: M[3]:= 6:
# M[m] is the lcm of 1..m
# S[m] is the set of residues mod M[m] for numbers n with A187824(n)>=m
# R[i] is the i'th record value
for m from 4 while count < N do
  M[m]:= ilcm(M[m-1], m); p:= M[m]/M[m-1];
  if p = 1 then T:= S[m-1]
  else T:= {seq(seq(a+b*M[m-1], a=S[m-1]), b=0..p-1)}
  end if;
  S[m]:= select(t -> member(mods(t, m), {1, 0, -1}), T);
  r:= min(S[m] minus {0, 1});
  if r > R[count] then
    count:= count+1; R[count]:= r
  end if;
end do:
[seq(R[j], j=1..count)];
# Robert Israel, Dec 31 2012

Prog

(PARI) {m=0; for(n=1, 9e9, m<A187824(n) || next; print1(n", "); m=A187824(n))} \\ For illustrative purpose (values < 10^8) only. - M. F. Hasler, Dec 31 2012

Crossrefs

Cf. A187824, A220890, A056697.

Sequence in context: A265098 A076209 A037399 * A220890 A250260 A345306

Adjacent sequences: A220888 A220889 A220890 * A220892 A220893 A220894

Keyword

nonn

Author

N. J. A. Sloane, Dec 30 2012

Status

approved