|
%I #11 Mar 20 2024 03:04:17
%S 2,4,10,18,20,34,42,50,52,68,98,100,114,116,130,138,148,170,196,212,
%T 228,244,260,298,308,324,372,386,388,418,434,436,516,522,532,546,586,
%U 596,628,642,644,706,708,714,738,740,778,868,882,884,914,962,964,994,996,1090
%N Twin Even-Lucky-Numbers: lower terms.
%H Amiram Eldar, <a href="/A045955/b045955.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A045957(n) - 1 = A045956(n) - 2. - _Amiram Eldar_, Mar 20 2024
%t evenLuckies[max_] := Module[{lst = Range[2, max, 2], i = 2, len}, While[i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++]; lst]; twinLow[max_] := Module[{s = evenLuckies[max]}, s[[Position[ Differences[s], 2] // Flatten]]]; twinLow[1100] (* _Amiram Eldar_, Mar 20 2024, after _Robert G. Wilson v_ at A045954 *)
%Y Cf. A045954, A045956, A045957.
%K nonn
%O 1,1
%A _Felice Russo_
|
