A242014 Where record values occur in A005210.

1, 4, 5, 8, 13, 27, 30, 59, 79, 101, 107, 115, 132, 153, 182, 206, 241, 260, 332, 344, 370, 437, 493, 521, 541, 587, 602, 660, 710, 812, 829, 838, 868, 979, 1040, 1079, 1114, 1240, 1294, 1367, 1634, 1713, 1727, 1779, 1886, 1929, 1940, 1984, 2060, 2246, 2373

Offset

1,2

Comments

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

Links

Alois P. Heinz, Table of n, a(n) for n = 1..1000 (first 250 terms from Reinhard Zumkeller)

Mathematica

(* 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 *)

Prog

(Haskell)
a242014 n = a242014_list !! (n-1)
-- For definition of a242014_list see A005211.

Crossrefs

Cf. A005210, A005211.

Sequence in context: A348484 A087475 A019526 * A145488 A050892 A347880

Adjacent sequences: A242011 A242012 A242013 * A242015 A242016 A242017

Keyword

nonn

Author

Reinhard Zumkeller, Aug 11 2014

Status

approved