login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

Table of n, a(n) for n=1..32.

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified October 23 16:56 EDT 2017. Contains 293791 sequences.