OFFSET
2,1
LINKS
Andrew Howroyd, Table of n, a(n) for n = 2..1000
MATHEMATICA
FromDigits[Flatten[IntegerDigits/@(Range[#[[1]]+1, #[[2]]-1])]]&/@Partition[ Prime[Range[2, 30]], 2, 1] (* Harvey P. Dale, Mar 04 2014 *)
PROG
(PARI) a(n)=my(r=prime(n)+1); fromdigits(concat(vector(nextprime(r)-r, i, digits(r+i-1)))) \\ Andrew Howroyd, Aug 14 2024
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Patrick De Geest, Apr 15 2000
EXTENSIONS
Offset changed and name edited by Andrew Howroyd, Aug 14 2024
STATUS
approved