|
|
A081932
|
|
Sum of n-th row of A081930.
|
|
3
|
|
|
1, 33, 333, 4664, 51005, 616506, 7021007, 80308008, 900360009, 10004950010, 110005510011
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
isA002113 := proc(n) local digrev, d ; digrev := convert(n, base, 10) ; for d from 1 to nops(digrev)/2 do if op(d, digrev) <> op(-d, digrev) then RETURN(false) ; fi ; od ; RETURN(true) ; end: A081930 := proc(n) local a, k ; a := [] ; k := 10^(n-1) ; while nops(a) < n do if isA002113(k) then a := [op(a), k] ; fi ; k := k+1 ; od ; RETURN(a) ; end: A081932 := proc(n) local nrow, i ; nrow := A081930(n) ; add(op(i, nrow), i=1..nops(nrow)) ; end: for n from 1 to 18 do A081932(n) ; od ; # R. J. Mathar, Apr 05 2007
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,more,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|