A124742 Records in A124522.
2, 9, 12, 15, 48, 60, 129, 150, 198, 234, 273, 285, 297, 372, 420, 531, 537, 900, 1065, 1086, 1128, 1746, 1896, 2187, 2229, 2244, 2289, 2415, 2424, 2577, 2781, 2877, 3108, 3126, 3630
Offset: 1
Keywords
Programs
-
Mathematica
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 *)