login
A088350
a(n) = (A088349(n)-5)/24.
2
0, 1, 7, 10, 15, 31, 43, 61, 91, 142, 157, 186, 213, 250, 259, 319, 367, 373, 375, 463, 547, 618, 751, 853, 874, 922, 942, 949, 1117, 1230, 1237, 1258, 1279, 1306, 1311, 1501, 1555, 1678, 1885, 1887, 1914, 1959, 2203, 2238, 2251, 2446, 2554, 2623, 2650
OFFSET
1,3
LINKS
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Sep 26 2003
STATUS
approved