A168224 Where record values occur in A168223.

0, 5, 7, 11, 17, 19, 23, 29, 31, 35, 41, 43, 47, 53, 55, 59, 65, 67, 71, 77, 79, 83, 89, 91, 95, 101, 103, 107, 113, 115, 119, 125, 127, 131, 137, 139, 143, 149, 151, 155, 161, 163, 167, 173, 175, 179, 185, 187, 191, 197, 199, 203, 209, 211, 215, 221, 223, 227, 233

Offset

1,2

Comments

A168223(a(n))=A047342(n) and A168223(m) < A047342(n) for m<a(n).

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

With[{nn=300}, DeleteDuplicates[Thread[{Range[0, nn-1], LinearRecurrence[{-2, -2, 0, 3, 4, 3, 0, -2, -2, -1}, {0, 0, 0, 0, -1, 3, -5, 4, -1, -1}, nn]}], GreaterEqual[#1[[2]], #2[[2]]]&]][[;; , 1]] (* Harvey P. Dale, Mar 01 2024 *)

Crossrefs

Sequence in context: A107448 A147853 A111226 * A084197 A180952 A073681

Adjacent sequences: A168221 A168222 A168223 * A168225 A168226 A168227

Keyword

nonn

Author

Reinhard Zumkeller, Nov 20 2009

Status

approved