# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a168224 Showing 1-1 of 1 %I A168224 #7 Mar 01 2024 13:57:59 %S A168224 0,5,7,11,17,19,23,29,31,35,41,43,47,53,55,59,65,67,71,77,79,83,89,91, %T A168224 95,101,103,107,113,115,119,125,127,131,137,139,143,149,151,155,161, %U A168224 163,167,173,175,179,185,187,191,197,199,203,209,211,215,221,223,227,233 %N A168224 Where record values occur in A168223. %C A168224 A168223(a(n))=A047342(n) and A168223(m) < A047342(n) for mTable of n, a(n) for n = 1..1000 %t A168224 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 *) %K A168224 nonn %O A168224 1,2 %A A168224 _Reinhard Zumkeller_, Nov 20 2009 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE