OFFSET
1,1
COMMENTS
The idea is from Peter Boros, borospet(AT)freemail.hu
EXAMPLE
a(10)=124, a(11)=124+1*24+12*4=124+24+48=196
MAPLE
a[1]:=11:for n from 2 to 40 do d:=a[n-1]:i:=1:while d>0 do c:=d mod 10: b[i]:=c:i:=i+1:d:=(d-c)/10 od:a[n]:=a[n-1]:for j from 1 to i-2 do f:=sum(b[k]*10^(k-1), k=1..j):g:=sum(b[k]*10^(k-j-1), k=j+1..i-1): a[n]:=a[n]+f*g od: od: seq(a[n], n=1..40);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Miklos Kristof, Jun 21 2005
STATUS
approved