This site is supported by donations to The OEIS Foundation.

 Annual Appeal: Please make a donation to keep the OEIS running. In 2018 we replaced the server with a faster one, added 20000 new sequences, and reached 7000 citations (often saying "discovered thanks to the OEIS"). Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A056145 Palindromic primes in bases 2 and 8. 0
 3, 5, 7, 73, 28807, 31727, 262657, 295433, 1311749, 1385621, 1478189, 1540157, 1543741, 1549501, 1551037, 1865159, 1932247, 2031599, 2067007, 2085247, 2087807, 83914757, 84663941, 85742021, 85808581, 88779413, 89420117, 89466197, 89924053, 90169301, 94971053, 94983341 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS MATHEMATICA Do[ If[ PrimeQ[ n ], t=RealDigits[ n, 8 ][ [ 1 ] ]; If[ FromDigits[ t ]==FromDigits[ Reverse[ t ] ], s=RealDigits[ n, 2 ][ [ 1 ] ]; If[ FromDigits[ s ]==FromDigits[ Reverse[ s ] ], Print[ n ] ] ] ], {n, 1, 10^8} ] Select[Prime[Range[155000]], PalindromeQ[IntegerDigits[#, 2]] && PalindromeQ[ IntegerDigits[ #, 8]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 23 2017 *) CROSSREFS Cf. A016041 and A029976. Sequence in context: A065913 A137999 A291438 * A119939 A254925 A153138 Adjacent sequences:  A056142 A056143 A056144 * A056146 A056147 A056148 KEYWORD nonn,base AUTHOR Robert G. Wilson v, Jul 29 2000 EXTENSIONS More terms from Harvey P. Dale, Sep 23 2017 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified December 18 15:07 EST 2018. Contains 318229 sequences. (Running on oeis4.)