Numbers in base 10 that are palindromic in bases 2, 4, and 16: Difference between revisions

Content added Content deleted
(Add BASIC)
(Add C)
Line 126: Line 126:
20485
20485
21845</pre>
21845</pre>

=={{header|C}}==
<lang c>#include <stdio.h>
#define MAXIMUM 25000

int reverse(int n, int base) {
int r;
for (r = 0; n; n /= base)
r = r*base + n%base;
return r;
}

int palindrome(int n, int base) {
return n == reverse(n, base);
}

int main() {
int i, c = 0;
for (i = 0; i < MAXIMUM; i++) {
if (palindrome(i, 2) &&
palindrome(i, 4) &&
palindrome(i, 16)) {
printf("%5d%c", i, ++c % 12 ? ' ' : '\n');
}
}
printf("\n");
return 0;
}</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</pre>


=={{header|Factor}}==
=={{header|Factor}}==