A124742 - OEIS

%I #4 Mar 30 2024 17:34:50

%S 2,9,12,15,48,60,129,150,198,234,273,285,297,372,420,531,537,900,1065,

%T 1086,1128,1746,1896,2187,2229,2244,2289,2415,2424,2577,2781,2877,

%U 3108,3126,3630

%N Records in A124522.

%t skp[n_]:=Module[{k=1},While[AnyTrue[2n k+{1,-1},CompositeQ],k++];k]; DeleteDuplicates[ Join[{2},Array[skp,10^6,2]],GreaterEqual] (* The program generates the first 23 terms of the sequence. *) (* _Harvey P. Dale_, Mar 30 2024 *)

%Y Cf. A124522, A124743 (where records occur).

%K nonn

%O 1,1

%A _Klaus Brockhaus_, Nov 07 2006