A085249 -id:A085249 - cp's OEIS frontend

A088349 a(n) = (A085249(n) - 1)/6.

5, 29, 173, 245, 365, 749, 1037, 1469, 2189, 3413, 3773, 4469, 5117, 6005, 6221, 7661, 8813, 8957, 9005, 11117, 13133, 14837, 18029, 20477, 20981, 22133, 22613, 22781, 26813, 29525, 29693, 30197, 30701, 31349, 31469, 36029, 37325, 40277, 45245

Offset: 1

Ray Chandler, Sep 26 2003

nonn

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

Cf. A002977, A085249, A088350.

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 *)

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

Original entry on oeis.org

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

Ray Chandler, Sep 26 2003

nonn

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

Cf. A002977, A085249, A088349.

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 *)

cp's OEIS Frontend

A088349 a(n) = (A085249(n) - 1)/6.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica