A210702 Records in A210700.

0, 1, 2, 5, 8, 14, 16, 17, 19, 20, 25, 35, 38, 55, 62, 67, 73, 82, 121, 130, 140, 160, 191, 232, 233, 245, 260, 283, 308, 379, 391, 437, 481, 607, 650, 673, 784, 790, 841, 856, 920, 1036, 1114, 1234, 1241, 1316, 1402, 1504, 1540, 1610, 1684, 1774, 1811

Offset: 1

Author

Jason Kimberley, Oct 15 2012

Keywords

• nonn

Crossrefs

Cf. A210701 (location of records).

Programs

Mathematica

sml[n_]:=Module[{m=0},While[!PrimeQ[3n-m]||!PrimeQ[3n+m],m++];m]; DeleteDuplicates[ Array[sml,3000000],GreaterEqual] (* The program generates the first 43 terms of the sequence. *) (* Harvey P. Dale, Sep 23 2022 *)

Formula

a(n) = A210700(A210701(n)).