Numbers in base 10 that are palindromic in bases 2, 4, and 16: Difference between revisions
Numbers in base 10 that are palindromic in bases 2, 4, and 16 (view source)
Revision as of 21:55, 24 June 2021
, 2 years agoAdd BCPL
m (→{{header|REXX}}: re-aligned a REXX statement.) |
Not a robot (talk | contribs) (Add BCPL) |
||
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
</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}}==
|