login
A167460
Primes p such that (p reversed)+6 is also a prime.
5
5, 7, 11, 13, 19, 31, 37, 53, 59, 71, 73, 79, 101, 103, 109, 113, 127, 131, 139, 149, 151, 157, 163, 179, 191, 193, 197, 199, 307, 317, 331, 337, 353, 367, 373, 383, 503, 509, 521, 523, 541, 547, 557, 569, 571, 593, 701, 727, 743, 751, 761, 773, 1009, 1031, 1033
OFFSET
1,1
LINKS
MAPLE
rev:= proc(n) local L, i;
L:= convert(n, base, 10);
add(L[-i]*10^(i-1), i=1..nops(L))
end proc:
select(t -> isprime(t) and isprime(rev(t)+6), [seq(i, i=3..2000, 2)]); # Robert Israel, Dec 11 2023
MATHEMATICA
Select[Prime[Range[2, 700]], PrimeQ[FromDigits[Reverse[IntegerDigits[#]]] + 6]&] (* Vincenzo Librandi, Sep 15 2013 *)
PROG
(Magma) [p: p in PrimesInInterval(2, 1050) | IsPrime(q+6) where q is Seqint(Reverse(Intseq(p)))]; // Vincenzo Librandi, Sep 15 2013
(PARI) isok(p) = isprime(p) && isprime(fromdigits(Vecrev(digits(p)))+6); \\ Michel Marcus, Dec 11 2023
CROSSREFS
Sequence in context: A176579 A154275 A339347 * A045439 A093078 A314298
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Nov 04 2009
EXTENSIONS
593 inserted, 769 removed by R. J. Mathar, Nov 08 2009
STATUS
approved