|
|
A050813
|
|
Numbers n not palindromic in any base b, 2 <= b <= 10.
|
|
10
|
|
|
19, 39, 47, 53, 58, 69, 75, 76, 79, 84, 87, 90, 94, 95, 96, 102, 103, 106, 108, 110, 115, 116, 120, 122, 132, 133, 134, 137, 139, 140, 143, 144, 147, 149, 152, 155, 158, 159, 163, 167, 168, 169, 174, 175, 176, 177, 179, 180, 183, 184, 187, 188, 193, 196, 198
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
n = -1; t = {}; While[Length[t] < 100, n++; If[Count[Table[s = IntegerDigits[n, m]; s == Reverse[s], {m, 2, 10}], True] == 0, AppendTo[t, n]]]; t (* T. D. Noe, Jul 18 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|