login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A029972 Palindromic primes in base 4. 11
2, 3, 5, 17, 29, 59, 257, 373, 409, 461, 509, 787, 839, 887, 907, 991, 4289, 4561, 5189, 5669, 5861, 6133, 6217, 6553, 6761, 7309, 7517, 7789, 7853, 12899, 13171, 13591, 14327, 14347, 14411, 14683, 14747, 14891, 15083, 15227, 15439, 15647 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
MATHEMATICA
Do[s = RealDigits[n, 4][[1]]; If[PrimeQ[n], If[FromDigits[s] == FromDigits[Reverse[s]], Print[n]]], {n, 1, 1600}]
(* Second program: *)
Select[Prime@ Range@ 1850, PalindromeQ@ IntegerDigits[#, 4] &] (* Michael De Vlieger, May 14 2017, Version 10 *)
PROG
(PARI) isok(n) = my(d=digits(n, 4)); d == Vecrev(d); \\ Michel Marcus, May 14 2017
CROSSREFS
Sequence in context: A216061 A348062 A349678 * A077498 A118958 A259596
KEYWORD
nonn,base
AUTHOR
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 28 14:09 EST 2024. Contains 370400 sequences. (Running on oeis4.)