|
|
A097929
|
|
Numbers in base 10 that are palindromic in bases 4 and 5.
|
|
22
|
|
|
0, 1, 2, 3, 46, 9222, 76449, 193662, 2347506, 2593206, 17099841, 17402241, 25651017, 32317933, 16516113567, 16619231967, 155784877126, 2806999337418, 3101308506654, 37004798195346, 47470618709562, 48517516968462
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
9222 base 10 is 2100012 base 4 and 9222 base 10 is 243342 base 5.
|
|
MATHEMATICA
|
Do[ p4 = IntegerDigits[n, 4]; If[ FromDigits[ Reverse[ p4]] == FromDigits[p4], p5 = IntegerDigits[n, 5]; If[ FromDigits[ Reverse[p5]] == FromDigits[p5], Print[n]]], {n, 2*10^7}] (* Robert G. Wilson v, Sep 07 2004 *)
|
|
PROG
|
(PARI) /* Requires reading the util.gp file in the link into the gp session. */
palbase(n, b1, b2) = { for(x=1, n, if(ispal(base(10, b1, x))& ispal(base(10, b2, x)), print1(x", ")) ) }
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|