|
|
A250409
|
|
Palindromic in bases 10 and 24.
|
|
20
|
|
|
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 525, 575, 2332, 4664, 6226, 6996, 8558, 10001, 11011, 12621, 13631, 374473, 1851581, 2207022, 2267622, 2762672, 3118113, 3673763, 4029204, 4296924, 4925294, 5103015, 5836385, 6014106, 6281826, 6747476, 7132317, 7192917, 7658567, 7865687
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
MATHEMATICA
|
palQ[n_Integer, base_Integer] := Block[{}, Reverse[ idn = IntegerDigits[n, base]] == idn]; genPal[n_] := Block[{id = IntegerDigits@ n, insert = {{}, {0}, {1}, {2}, {3}, {4}, {5}, {6}, {7}, {8}, {9}}}, FromDigits@ Join[id, #, Reverse@ id] & /@ insert]; k = 1; lst = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}; While[k < 1000001, s = Select[ genPal[k], palQ[#, 24] &]; If[s != {}, AppendTo[lst, s]; Print@ s; lst = Sort@ Flatten@ lst]; k++]; lst
b1=10; b2=24; lst={}; Do[d1=IntegerDigits[n, b1]; d2=IntegerDigits[n, b2]; If[d1==Reverse[d1]&&d2==Reverse[d2], AppendTo[lst, n]], {n, 0, 10000000}]; lst (* Vincenzo Librandi, Nov 23 2014 *)
Select[Range[0, 79*10^5], PalindromeQ[#]&&IntegerDigits[#, 24]== Reverse[ IntegerDigits[ #, 24]]&] (* Harvey P. Dale, Mar 17 2023 *)
|
|
PROG
|
(Magma) [n: n in [0..10000000] | Intseq(n, 10) eq Reverse(Intseq(n, 10))and Intseq(n, 24) eq Reverse(Intseq(n, 24))]; // Vincenzo Librandi, Nov 23 2014
|
|
CROSSREFS
|
Cf. A007632, A007633, A029961, A029962, A029963, A029964, A029804, A029965, A029966, A029967, A029968, A029969, A029970, A029731, A097855, A250408, A250410, A250411, A099165, A250412.
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|