OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
In the prime sequence, select largest digit in each prime, multiply by the prime containing that digit, then subtract 1. If the result is another prime, add to sequence.
EXAMPLE
a(2)=41. Largest digit is 4. Multiply 41*4=164. 164-1=163, prime.
MATHEMATICA
Select[Prime[Range[1000]], PrimeQ[# Max[IntegerDigits[#]]-1]&] (* Harvey P. Dale, Dec 31 2019 *)
PROG
(PARI) isok(p) = isprime(p) && isprime(p*vecmax(digits(p))-1); \\ Michel Marcus, Jun 08 2014
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Enoch Haga, Jan 22 2004
STATUS
approved