OFFSET
1,1
EXAMPLE
For k=143, concatenating 555 and k gives 555143 (prime).
MATHEMATICA
Select[Range[853], PrimeQ[FromDigits[Join[{5, 5, 5}, IntegerDigits[#]]]]&] (* James C. McMahon, Apr 20 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Parthasarathy Nambi, Sep 12 2005
EXTENSIONS
More terms from Vincenzo Librandi, Mar 27 2010
STATUS
approved