login
A124742
Records in A124522.
3
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,1
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 *)
CROSSREFS
Cf. A124522, A124743 (where records occur).
Sequence in context: A265413 A297830 A103008 * A152003 A251428 A050855
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Nov 07 2006
STATUS
approved