OFFSET
1,2
COMMENTS
Does the obvious pattern continue? - Vladeta Jovovic, Apr 07 2002
MAPLE
F:= proc(d)
local s, P, nP, S, x, bestx;
bestx:= 0;
for s in [1, 3, 6, 9] do
for P in map(op @combinat:-permute, combinat:-partition(s)) do
nP:= nops(P);
for S in map(t -> [d-1, op(t)], combinat:-choose([$0..d-2], nP-1)) do
x:= add(P[i]*10^S[i], i=1..nP);
if x > bestx and issqr(1+8*x) then bestx:= x fi;
od;
od;
if bestx > 0 then return bestx fi;
od;
end proc:
seq(F(d), d=1..30); # Robert Israel, May 25 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Apr 06 2002
EXTENSIONS
More terms from Vladeta Jovovic, Apr 07 2002
a(15)..a(30) from Robert Israel, May 25 2016
STATUS
approved