|
%I #10 Mar 20 2024 03:04:01
%S 4,6,12,20,22,36,44,52,54,70,100,102,116,118,132,140,150,172,198,214,
%T 230,246,262,300,310,326,374,388,390,420,436,438,518,524,534,548,588,
%U 598,630,644,646,708,710,716,740,742,780,870,884,886,916,964,966,996,998,1092
%N Twin even-lucky-numbers: upper terms.
%H Amiram Eldar, <a href="/A045956/b045956.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A045957(n) + 1 = A045955(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]; twinUp[max_] := Module[{s = evenLuckies[max]}, s[[Position[Differences[s], 2] // Flatten]] + 2]; twinUp[1100] (* _Amiram Eldar_, Mar 20 2024, after _Robert G. Wilson v_ at A045954 *)
%Y Cf. A045954, A045955, A045957.
%K nonn
%O 1,1
%A _Felice Russo_
|
