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 A088349 #8 May 07 2022 09:26:32
%S A088349 5,29,173,245,365,749,1037,1469,2189,3413,3773,4469,5117,6005,6221,
%T A088349 7661,8813,8957,9005,11117,13133,14837,18029,20477,20981,22133,22613,
%U A088349 22781,26813,29525,29693,30197,30701,31349,31469,36029,37325,40277,45245
%N A088349 a(n) = (A085249(n) - 1)/6.
%H A088349 Amiram Eldar, <a href="/A088349/b088349.txt">Table of n, a(n) for n = 1..1000</a>
%t A088349 seq[max_] := Module[{s = Flatten[NestWhileList[Flatten[{2*# + 1, 3*# + 1}] &, 1, Min[#1] < max &]], t, u}, t = Union[Select[s, # <= max &]]; u = Select[t, MemberQ[t, (# - 1)/2] && MemberQ[t, (# - 1)/3] &]; (u - 1)/6]; seq[300000] (* _Amiram Eldar_, May 07 2022 *)
%Y A088349 Cf. A002977, A085249, A088350.
%K A088349 nonn
%O A088349 1,1
%A A088349 _Ray Chandler_, Sep 26 2003