Numbers in base 10 that are palindromic in bases 2, 4, and 16: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: re-aligned a REXX statement.) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 61: | Line 61: | ||
0 1 3 5 15 17 51 85 255 257 273 771 819 1285 1365 3855 4095 4097 4369 12291 13107 20485 21845 |
0 1 3 5 15 17 51 85 255 257 273 771 819 1285 1365 3855 4095 4097 4369 12291 13107 20485 21845 |
||
</pre> |
</pre> |
||
=={{header|BCPL}}== |
|||
<lang bcpl>get "libhdr" |
|||
manifest $( MAXIMUM = 25000 $) |
|||
let reverse(n, base) = valof |
|||
$( let r = 0 |
|||
while n > 0 |
|||
$( r := r*base + n rem base |
|||
n := n / base |
|||
$) |
|||
resultis r |
|||
$) |
|||
let palindrome(n, base) = n = reverse(n, base) |
|||
let start() be |
|||
for i = 1 to MAXIMUM |
|||
if palindrome(i,2) & palindrome(i,4) & palindrome(i,16) |
|||
do writef("%N*N", i)</lang> |
|||
{{out}} |
|||
<pre>1 |
|||
3 |
|||
5 |
|||
15 |
|||
17 |
|||
51 |
|||
85 |
|||
255 |
|||
257 |
|||
273 |
|||
771 |
|||
819 |
|||
1285 |
|||
1365 |
|||
3855 |
|||
4095 |
|||
4097 |
|||
4369 |
|||
12291 |
|||
13107 |
|||
20485 |
|||
21845</pre> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |