1,2

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

Cf. A078269.

Sequence in context: A111864 A098034 A109242 this_sequence A015262 A103849 A010032

Adjacent sequences: A078267 A078268 A078269 this_sequence A078271 A078272 A078273

base,nonn

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

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