# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a078270
Showing 1-1 of 1

%I A078270 #7 Aug 07 2015 02:39:01
%S A078270 1,111,12021,1293931,138575841,14775857751,1569413139661,
%T A078270 166124050421571,17530678687703481,101854077969780448291,
%U A078270 1019376417897988137639201,10202855923708990650955830111
%N A078270 a(n) = A078269(n)/11.
%p A078270 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
%Y A078270 Cf. A078269.
%K A078270 base,nonn
%O A078270 1,2
%A A078270 _Amarnath Murthy_, Nov 24 2002
%E A078270 More terms from _R. J. Mathar_, Feb 27 2007

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE