|
Search: id:A081931
|
|
| |
|
| 1, 22, 121, 1331, 10401, 105501, 1006001, 10077001, 100080001, 1000990001, 10001010001
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
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: A081931 := proc(n) local nrow ; nrow := A081930(n) ; RETURN(op(-1, nrow)) ; end: for n from 1 to 18 do A081931(n) ; od ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 04 2007
|
|
CROSSREFS
|
Cf. A081930, A081932.
Sequence in context: A100930 A039612 A085828 this_sequence A043498 A108571 A105776
Adjacent sequences: A081928 A081929 A081930 this_sequence A081932 A081933 A081934
|
|
KEYWORD
|
base,more,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 01 2003
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 04 2007
|
|
|
Search completed in 0.002 seconds
|
