login
A210702
Records in A210700.
1
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
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
KEYWORD
nonn
AUTHOR
Jason Kimberley, Oct 15 2012
STATUS
approved