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,1

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

Crossrefs

Cf. A002977, A085249, A088350.

Sequence in context: A141814 A175883 A122370 * A272802 A083066 A327557

Adjacent sequences: A088346 A088347 A088348 * A088350 A088351 A088352

Keyword

nonn

Author

Ray Chandler, Sep 26 2003

Status

approved