A048553 a(n+1) is next smallest prime beginning with a(n), initial prime is 11.

11, 113, 11311, 113111, 1131113, 11311133, 1131113353, 113111335313, 11311133531339, 113111335313399, 1131113353133993, 113111335313399321, 11311133531339932153, 1131113353133993215379, 113111335313399321537911

Offset

0,1

Links

Clark Kimberling, Table of n, a(n) for n = 0..498

Maple

f:= proc(n)
  local p, d;
  for d from 1 do
    p:= nextprime(n*10^d);
    if p < (n+1)*10^d then return p fi
  od
end proc:
A[1]:= 11:
for n from 2 to 20 do A[n]:= f(A[n-1]) od:
seq(A[n], n=1..20); # Robert Israel, Aug 16 2015

Mathematica

a = {11}; Do[k = 1; w = IntegerDigits[a[[n - 1]]];
While[CompositeQ@ FromDigits[Join[w, IntegerDigits@ k]], k += 2];
AppendTo[a, FromDigits[Join[w, IntegerDigits@ k]]], {n, 2, 15}]; a (* Michael De Vlieger, Sep 21 2015 *)

Crossrefs

Cf. A048549-A048556, A261199-A261201, A261269-A261270.

Sequence in context: A239821 A087391 A211200 * A110799 A088089 A201966

Adjacent sequences: A048550 A048551 A048552 * A048554 A048555 A048556

Keyword

nonn,base

Author

Patrick De Geest, May 15 1999

Status

approved