OFFSET
1,1
EXAMPLE
4_5_6_7_8_9_10_11_12_13 is a prime number.
MATHEMATICA
Select[FromDigits[Flatten[IntegerDigits[#]]]&/@Partition[Range[300], 10, 1], PrimeQ] (* Vincenzo Librandi, Sep 15 2015 *)
PROG
(PARI) for(n=1, 1e3, if(isprime(k=eval(Str(n, n+1, n+2, n+3, n+4, n+5, n+6, n+7, n+8, n+9))), print1(k", ")))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Altug Alkan, Sep 14 2015
STATUS
approved