editing

approved

digrev := proc(d) local r, i ; r := [] ; for i from 1 to nops(d) do r := [op(i, d), op(r)] ; od ; RETURN(r) ; end: A078269 := proc(n) local digs, res, i ; digs := [] ; for i from 1 to n do digs := [op(digs), op(digrev(convert(i, base, 10)))] ; od ; res := 0 ; for i from 1 to nops(digs) do res := 100*res+op(i, digs) ; od ; digs := [] ; for i from 1 to n do digs := [op(digs), op(convert(i, base, 10))] ; od ; res := 10*res ; for i from 1 to nops(digs) do res := res+op(i, digs)*10^(2*i-2) ; od ; RETURN(res) ; end: A078270 := proc(n) A078269(n)/11 ; end: for n from 1 to 20 do printf("%d, ", A078270(n)) ; od : - _# _R. J. Mathar_, Feb 27 2007

approved

editing

_Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, Nov 24 2002

digrev := proc(d) local r, i ; r := [] ; for i from 1 to nops(d) do r := [op(i, d), op(r)] ; od ; RETURN(r) ; end: A078269 := proc(n) local digs, res, i ; digs := [] ; for i from 1 to n do digs := [op(digs), op(digrev(convert(i, base, 10)))] ; od ; res := 0 ; for i from 1 to nops(digs) do res := 100*res+op(i, digs) ; od ; digs := [] ; for i from 1 to n do digs := [op(digs), op(convert(i, base, 10))] ; od ; res := 10*res ; for i from 1 to nops(digs) do res := res+op(i, digs)*10^(2*i-2) ; od ; RETURN(res) ; end: A078270 := proc(n) A078269(n)/11 ; end: for n from 1 to 20 do printf("%d, ", A078270(n)) ; od : - _R. J. Mathar (mathar(AT)strw.leidenuniv.nl), _, Feb 27 2007

More terms from _R. J. Mathar (mathar(AT)strw.leidenuniv.nl), _, Feb 27 2007

digrev := proc(d) local r, i ; r := [] ; for i from 1 to nops(d) do r := [op(i, d), op(r)] ; od ; RETURN(r) ; end: A078269 := proc(n) local digs, res, i ; digs := [] ; for i from 1 to n do digs := [op(digs), op(digrev(convert(i, base, 10)))] ; od ; res := 0 ; for i from 1 to nops(digs) do res := 100*res+op(i, digs) ; od ; digs := [] ; for i from 1 to n do digs := [op(digs), op(convert(i, base, 10))] ; od ; res := 10*res ; for i from 1 to nops(digs) do res := res+op(i, digs)*10^(2*i-2) ; od ; RETURN(res) ; end: A078270 := proc(n) A078269(n)/11 ; end: for n from 1 to 20 do printf("%d, ", A078270(n)) ; od : - Richard R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 27 2007

base,nonn,new

More terms from Richard R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 27 2007

1, 111, 12021, 1293931, 138575841, 14775857751, 1569413139661, 166124050421571, 17530678687703481, 101854077969780448291, 1019376417897988137639201, 10202855923708990650955830111

digrev := proc(d) local r, i ; r := [] ; for i from 1 to nops(d) do r := [op(i, d), op(r)] ; od ; RETURN(r) ; end: A078269 := proc(n) local digs, res, i ; digs := [] ; for i from 1 to n do digs := [op(digs), op(digrev(convert(i, base, 10)))] ; od ; res := 0 ; for i from 1 to nops(digs) do res := 100*res+op(i, digs) ; od ; digs := [] ; for i from 1 to n do digs := [op(digs), op(convert(i, base, 10))] ; od ; res := 10*res ; for i from 1 to nops(digs) do res := res+op(i, digs)*10^(2*i-2) ; od ; RETURN(res) ; end: A078270 := proc(n) A078269(n)/11 ; end: for n from 1 to 20 do printf("%d, ", A078270(n)) ; od : - Richard J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 27 2007

base,more,nonn,new

More terms from Richard J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 27 2007

a(n) = A078269(n)/11.

1, 111, 12021, 1293931, 138575841, 14775857751, 1569413139661, 166124050421571, 17530678687703481

1,2

Cf. A078269.

base,more,nonn

Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Nov 24 2002

approved