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 A088350 #8 May 07 2022 09:26:29
%S A088350 0,1,7,10,15,31,43,61,91,142,157,186,213,250,259,319,367,373,375,463,
%T A088350 547,618,751,853,874,922,942,949,1117,1230,1237,1258,1279,1306,1311,
%U A088350 1501,1555,1678,1885,1887,1914,1959,2203,2238,2251,2446,2554,2623,2650
%N A088350 a(n) = (A088349(n)-5)/24.
%H A088350 Amiram Eldar, <a href="/A088350/b088350.txt">Table of n, a(n) for n = 1..1000</a>
%t A088350 seq[max_] := Module[{s = Flatten[NestWhileList[Flatten[{2*# + 1, 3*# + 1}] &, 1, Min[#1] < max &]], t, u, v}, t = Union[Select[s, # <= max &]]; u = Select[t, MemberQ[t, (# - 1)/2] && MemberQ[t, (# - 1)/3] &]; v = (u - 1)/6; (v - 5)/24]; seq[400000] (* _Amiram Eldar_, May 07 2022 *)
%Y A088350 Cf. A002977, A085249, A088349.
%K A088350 nonn
%O A088350 1,3
%A A088350 _Ray Chandler_, Sep 26 2003