A285079 - OEIS

%I #17 Apr 15 2017 09:23:00

%S 2,6,12,56,132,156,756,2756,4556,6162,6972,7656,13572,21756,31152,

%T 33672,45156,61752,84972,153272,166872,279312,467172,626472,661782,

%U 1273512,1412532,1541322,1568756,1596432,1786232,1867322,2678132,2817362,3416952,3521252

%N Oblong numbers the product of whose digits are positive oblong numbers.

%C Oblong numbers are numbers of the form k*(k+1) (A002378).

%H Robert Israel and Giovanni Resta, <a href="/A285079/b285079.txt">Table of n, a(n) for n = 1..391</a> (terms < 10^25, first 221 terms from Robert Israel)

%p filter:= proc(x) local t; t:= convert(convert(x,base,10),`*`);

%p t > 0 and issqr(1+4*t); end proc:

%p select(filter, [seq(x*(1+x),x=1..10^4)]); # _Robert Israel_, Apr 14 2017

%t f[x_] := Sqrt[1 + 4 (Times @@ IntegerDigits[x])]; Select[Table[n (n + 1), {n, 1, 10000}], f[#] > 1 && Mod[f[#], 2] == 1 &]

%Y Cf. A002378, A053059, A069077.

%K nonn,base

%O 1,1

%A _Melvin Peralta_, Apr 09 2017