|
|
A029963
|
|
Palindromic in bases 6 and 10.
|
|
40
|
|
|
0, 1, 2, 3, 4, 5, 7, 55, 111, 141, 191, 343, 434, 777, 868, 1441, 7667, 7777, 22022, 39893, 74647, 168861, 808808, 909909, 1867681, 3097903, 4232324, 4265624, 4298924, 4516154, 4565654, 4598954, 4849484, 5100015, 5182815, 5400045
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
MATHEMATICA
|
palQ[n_Integer, base_Integer] := Block[{idn = IntegerDigits[n, base]}, idn == Reverse[idn]]; Select[ Range[10^7], palQ[ #, 6] && palQ[ #, 10] &] (* Robert G. Wilson v Sep 30 2004 *)
Select[Range[0, 10^5],
PalindromeQ[#] && # == IntegerReverse[#, 6] &] (* Robert Price, Nov 09 2019 *)
|
|
CROSSREFS
|
Cf. A007632, A007633, A029804, A029961, A029962, A029964, A029965, A029966, A029967, A029968, A029969, A029970.
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|