login
Where record values occur in A005210.
3

%I #15 Nov 03 2023 15:53:25

%S 1,4,5,8,13,27,30,59,79,101,107,115,132,153,182,206,241,260,332,344,

%T 370,437,493,521,541,587,602,660,710,812,829,838,868,979,1040,1079,

%U 1114,1240,1294,1367,1634,1713,1727,1779,1886,1929,1940,1984,2060,2246,2373

%N Where record values occur in A005210.

%C A005210(a(n)) = A005211(n).

%H Alois P. Heinz, <a href="/A242014/b242014.txt">Table of n, a(n) for n = 1..1000</a> (first 250 terms from Reinhard Zumkeller)

%t (* b = A005210 *) b[1] = b[2] = 1; b[n_] := b[n] = Abs[b[n-1] + 2 b[n-2] - n]; Reap[rec = 0; Do[bn = b[n]; If[bn > rec, rec = bn; Sow[n]], {n, 1, 3000}]][[2, 1]] (* _Jean-François Alcover_, Mar 12 2019 *)

%o (Haskell)

%o a242014 n = a242014_list !! (n-1)

%o -- For definition of a242014_list see A005211.

%Y Cf. A005210, A005211.

%K nonn

%O 1,2

%A _Reinhard Zumkeller_, Aug 11 2014