OFFSET
1,1
LINKS
FORMULA
For n>=5, a(n) = 1547536*100^(n-5).
From Chai Wah Wu, Aug 03 2020: (Start)
a(n) = 100*a(n-1) for n > 5.
G.f.: x*(3928064*x^4 + 492844*x^3 + 52124*x^2 + 124*x - 7)/(100*x - 1). (End)
EXAMPLE
a(2)=576 hence a(3) = 5476 the smallest square formed from 576.
MAPLE
Digits := 30 : isContain := proc(n, k) local ndigs, kdigs, f, d ; ndigs := convert(n, base, 10) ; kdigs := convert(k, base, 10) ; f := 1 : for d from 1 to nops(ndigs) do if f > nops(kdigs) then RETURN(false) ; fi ; while op(f, kdigs) <> op(d, ndigs) do f := f+1 ; if f > nops(kdigs) then RETURN(false) ; fi ; od: f := f+1 ; od: RETURN(true) ; end: n := 7 ; s := 8 : while true do while not isContain(n, s^2) do s := s+1 : od ; print(s^2) ; n := s^2: s := ceil(sqrt(s^2+1)) : od: # R. J. Mathar, Jun 26 2007
MATHEMATICA
Join[{7, 576, 5476, 54756}, NestList[100#&, 1547536, 10]] (* Harvey P. Dale, Jul 22 2024 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Feb 25 2002
EXTENSIONS
More terms from R. J. Mathar, Jun 26 2007
5 more terms from Sean A. Irvine, Sep 27 2009
Edited by Max Alekseyev, Oct 12 2009
STATUS
approved