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

Author

Reinhard Zumkeller, Nov 20 2009

Keywords

• nonn

Comments

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

Links

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

Programs

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

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.