Numbers in base 10 that are palindromic in bases 2, 4, and 16: Difference between revisions
Content added Content deleted
(add FreeBASIC) |
|||
Line 471: | Line 471: | ||
819 1285 1365 3855 4095 4097 4369 12291 13107 20485 21845 |
819 1285 1365 3855 4095 4097 4369 12291 13107 20485 21845 |
||
</pre> |
</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>ClearAll[PalindromeBaseQ, Palindrom2416Q] |
|||
PalindromeBaseQ[n_Integer, b_Integer] := PalindromeQ[IntegerDigits[n, b]] |
|||
Palindrom2416Q[n_Integer] := PalindromeBaseQ[n, 2] \[And] PalindromeBaseQ[n, 4] \[And] PalindromeBaseQ[n, 16] |
|||
Select[Range[0, 24999], Palindrom2416Q] |
|||
Length[%]</lang> |
|||
{{out}} |
|||
<pre>{0, 1, 3, 5, 15, 17, 51, 85, 255, 257, 273, 771, 819, 1285, 1365, 3855, 4095, 4097, 4369, 12291, 13107, 20485, 21845} |
|||
23</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |