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,1

Links

Table of n, a(n) for n=1..35.

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

Adjacent sequences: A124739 A124740 A124741 * A124743 A124744 A124745

Keyword

nonn

Author

Klaus Brockhaus, Nov 07 2006

Status

approved