|
|
A097928
|
|
Numbers in base 10 that are palindromic in bases 3 and 4.
|
|
25
|
|
|
0, 1, 2, 10, 130, 11950, 175850, 749470, 1181729, 11435450, 916821671, 956613659, 1136307905, 46746179770, 77887660577, 635913760790, 53903615484947, 55988454554339, 534479689454189, 1956592840355065
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
175850 base 10 is 22221012222 base 3 and 175850 base 10 is 222323222 base 4.
|
|
MATHEMATICA
|
Do[ p3 = IntegerDigits[n, 3]; If[ FromDigits[ Reverse[ p3]] == FromDigits[p3], p4 = IntegerDigits[n, 4]; If[ FromDigits[ Reverse[p4]] == FromDigits[p4], Print[n]]], {n, 2*10^7}] (* Robert G. Wilson v, Sep 07 2004 *)
|
|
PROG
|
(PARI) palbase(n, b1, b2) = { for(x=1, n, if(ispal(base(10, b1, x))& ispal(base(10, b2, x)), print1(x", ")) ) } \\Requires reading the util.gp file in the link into the gp session. Place in the \.gprc file to automate.
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|