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
KEYWORD
nonn
AUTHOR
Ray Chandler, Sep 26 2003
STATUS
approved