|
%I #10 Sep 23 2022 15:11:06
%S 0,1,2,5,8,14,16,17,19,20,25,35,38,55,62,67,73,82,121,130,140,160,191,
%T 232,233,245,260,283,308,379,391,437,481,607,650,673,784,790,841,856,
%U 920,1036,1114,1234,1241,1316,1402,1504,1540,1610,1684,1774,1811
%N Records in A210700.
%F a(n) = A210700(A210701(n)).
%t 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 *)
%Y Cf. A210701 (location of records).
%K nonn
%O 1,3
%A _Jason Kimberley_, Oct 15 2012
|
