OFFSET
1,1
EXAMPLE
5419 = 541*10 + 9, 9 is appended to 541.
MATHEMATICA
Select[10#+9&/@Prime[Range[100]], PrimeQ] (* Harvey P. Dale, Aug 20 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 13 2000
STATUS
approved