OFFSET
1,1
COMMENTS
Duplicates in the products are allowed.
A subsequence of A188630.
EXAMPLE
630 = 105*6 = 21*10*3.
990 = 66*15 = 55*6*3.
MAPLE
A295769 := proc(limit) local t, E, G, n, k, j, c, b, d, ist; E:=NULL; G:=NULL;
t := proc(n) option remember; iquo(n*(n+1), 2) end;
ist := proc(n) option remember; n = t(floor(sqrt(2*n))) end;
for n from 2 do
c := t(n); if c > limit then break fi;
for k from 2 do
b := c*t(k); if b > limit then break fi;
if ist(b) then E := E, b fi;
for j from 2 do
d := b*t(j); if d > limit then break fi;
if ist(d) then G := G, d fi
od od od; {E} intersect {G} end:
A295769(200000); # Peter Luschny, Dec 21 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Nov 27 2017
STATUS
approved