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 A073942 #13 May 07 2022 09:26:48
%S A073942 3,6,11,13,16,19,22,24,28,33,37,41,43,48,50,55,62,64,67,70,73,75,81,
%T A073942 84,86,93,95,98,106,109,111,115,120,124,127,129,138,142,145,147,150,
%U A073942 158,162,164,168,170,173,182,186,189,191,196,198,203,211,215,218,220,223
%N A073942 Numbers k such that A002977(k) - A002977(k-1) = 1.
%H A073942 Amiram Eldar, <a href="/A073942/b073942.txt">Table of n, a(n) for n = 1..10000</a>
%H A073942 Amiram Eldar, <a href="/A073942/a073942.jpg">Plot of a(n)/n for n = 20000..650000</a>
%F A073942 Conjecture : a(n) is asymptotic to c*n where c is around 3.8...
%t A073942 max = 1500; s = Union @ Flatten[NestWhileList[Flatten[{2*# + 1, 3*# + 1}] &, 1, Min[#1] < max &]]; 1 + Position[Differences[Select[s, # <= max &]], 1] // Flatten (* _Amiram Eldar_, May 07 2022 *)
%Y A073942 Cf. A002977.
%K A073942 nonn
%O A073942 1,1
%A A073942 _Benoit Cloitre_, Nov 20 2002