A088350 a(n) = (A088349(n)-5)/24.

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

Amiram Eldar, Table of n, a(n) for n = 1..1000

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

Cf. A002977, A085249, A088349.

Sequence in context: A025002 A120136 A020743 * A085382 A083390 A234093

Adjacent sequences: A088347 A088348 A088349 * A088351 A088352 A088353

Keyword

nonn

Author

Ray Chandler, Sep 26 2003

Status

approved