OFFSET
1,1
EXAMPLE
If n=7, then n0999 = 70999 (prime).
If n=41, then n0999 = 410999 (prime).
If n=80, then n0999 = 800999 (prime).
MATHEMATICA
fQ[n_] := PrimeQ[ FromDigits[ Join[ IntegerDigits[n], {0, 9, 9, 9}]]]; Select[ Range[ 349], fQ[ # ] &] (* Robert G. Wilson v, Mar 26 2005 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Parthasarathy Nambi, Mar 16 2005
EXTENSIONS
Edited and extended by Robert G. Wilson v, Mar 26 2005
STATUS
approved