|
|
A167496
|
|
Primes p such that (p reversed)-10 is also a prime.
|
|
2
|
|
|
17, 31, 71, 107, 167, 191, 311, 347, 383, 701, 719, 743, 761, 773, 797, 911, 929, 941, 947, 953, 977, 983, 1019, 1031, 1049, 1103, 1109, 1181, 1259, 1289, 1301, 1361, 1367, 1433, 1451, 1481, 1493, 1499, 1553, 1571, 1601, 1619, 1637, 1697, 1733, 1811
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
17->71-10=61; 31->13-10=3; 71->17-10=7; 941->149-10=139.
|
|
MAPLE
|
read("transforms") ; isA167496 := proc(n) isprime(n) and isprime(digrev(n)-10) ; end proc: A167496 := proc(n) if n = 1 then 17; else p := nextprime(procname(n-1)) ; while not isA167496(p) do p := nextprime(p) ; end do ; p ; end if; end proc: seq(A167496(n), n=1..80) ; # R. J. Mathar, Nov 08 2009
|
|
MATHEMATICA
|
Select[Prime[Range[5, 300]], PrimeQ[FromDigits[Reverse[IntegerDigits[#]]] - 10]&] (* Harvey P. Dale, Aug 12 2011 *)
|
|
PROG
|
(Magma) [p: p in PrimesInInterval(11, 2000) | IsPrime(q-10) where q is Seqint(Reverse(Intseq(p)))]; // Vincenzo Librandi, Sep 15 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|