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

Links

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

Formula

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

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 *)

Crossrefs

Cf. A210701 (location of records).

Sequence in context: A009203 A363734 A202273 * A173177 A191109 A190105

Adjacent sequences: A210699 A210700 A210701 * A210703 A210704 A210705

Keyword

nonn

Author

Jason Kimberley, Oct 15 2012

Status

approved