OFFSET
1,1
EXAMPLE
Dec61=prime -> Hex61=Dec97=prime -> Hex97=Dec151=prime -> Hex151=Dec337=prime -> Hex337=Dec823=prime -> Hex823=Dec2083=prime.
PROG
(PARI) hd(n) = my(d = digits(n)); sum(i=1, #d, 16^(i-1)*d[#d-i+1]);
isok(p) = isprime(p) && isprime(p=hd(p)) && isprime(p=hd(p)) && isprime(p=hd(p)) && isprime(p=hd(p)) && isprime(p=hd(p)); \\ Michel Marcus, Feb 08 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Andreas Boe, Feb 07 2014
EXTENSIONS
More terms from Michel Marcus, Feb 08 2014
STATUS
approved