A168224 - OEIS

%I #7 Mar 01 2024 13:57:59

%S 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 95,101,103,107,113,115,119,125,127,131,137,139,143,149,151,155,161,

%U 163,167,173,175,179,185,187,191,197,199,203,209,211,215,221,223,227,233

%N Where record values occur in A168223.

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

%H Harvey P. Dale, <a href="/A168224/b168224.txt">Table of n, a(n) for n = 1..1000</a>

%t 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 nonn

%O 1,2

%A _Reinhard Zumkeller_, Nov 20 2009