This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A374101 #12 Jun 28 2024 11:57:25
%S A374101 1,3,5,7,108,209,310,411,512,613,714,815,916,1109,1210,1311,1412,1513,
%T A374101 1614,1715,1816,1917,2110,2211,2312,2413,2514,2615,2716,2817,2918,
%U A374101 3111,3212,3313,3414,3515,3616,3717,3818,3919,4112,4213,4314,4415,4516,4617,4718
%N A374101 Numbers k such that k and k+2 are both self numbers (A003052).
%C A374101 The least difference between consecutive self numbers is 2 (see Griffin N. Macris's proof at A010061 that may be adapted to other bases).
%H A374101 Amiram Eldar, <a href="/A374101/b374101.txt">Table of n, a(n) for n = 1..10000</a>
%t A374101 seq[max_] := Module[{c = Complement[Range[max], Table[n + DigitSum[n], {n, 1, max}]], d, ind}, d = Differences[c]; ind = Position[d, 2] // Flatten; c[[ind]]]; seq[5000]
%Y A374101 Subsequence of A003052.
%Y A374101 Cf. A010061, A339216 (binary analog).
%K A374101 nonn,base,easy
%O A374101 1,2
%A A374101 _Amiram Eldar_, Jun 28 2024