|
%I #27 Nov 19 2022 14:00:39
%S 3,5,17,71,227,821,2087,5021,13757,33149,81197,186647,435401,1002719,
%T 2241779,5060171,11296421,25121207,55559507,121831601,266187827,
%U 578653919,1253242691,2705496551,5820833729,12491149637,26733605159,57077657321,121575837179,258438193379
%N The lesser of the 2^n-th twin prime pair (A001359).
%F a(n) = A001359(2^n).
%e a(0) = 3 since 3 is the lesser of the first (2^0) twin prime pair;
%e a(1) = 5 since 5 is the lesser of the second (2^1) twin prime pair;
%e a(2) = 17 since 17 is the lesser of the fourth (2^2) twin prime pair;
%e a(3) = 71 since 71 is the lesser of the eighth (2^3) twin prime pair; etc.
%t c = 0; p = 2; q = 3; lst = {}; Do[ While[c < 2^n, If[q == p + 2 , c++]; p = q; q = NextPrime@ q]; Print[{n, p - 2}]; AppendTo[lst, p - 2], {n, 0, 29}]
%Y Cf. A001359.
%K nonn
%O 0,1
%A _Robert G. Wilson v_, Oct 03 2022
|
