A048549 a(n+1) is next smallest prime beginning with a(n), initial prime is 2.

2, 23, 233, 2333, 23333, 2333321, 233332117, 2333321173, 233332117313, 23333211731399, 2333321173139903, 2333321173139903173, 23333211731399031733, 2333321173139903173301, 2333321173139903173301021

Offset: 1

Author

Patrick De Geest, May 15 1999

Keywords

• nonn
• base

Links

• Table of n, a(n) for n = 1..500

Crossrefs

Cf. A048550, A048551, A048552, A048553, A048554, A048555, A048556, A030456.

Similar to but different from A069603.

Programs

Mathematica

b = 10; s = {{2}};
Do[NestWhile[# + 1 &, 0, ! (PrimeQ[FromDigits[tmp = Join[Last[s], (nn = #;
IntegerDigits[nn - Sum[b^n, {n, l = NestWhile[# + 1 &, 1, ! (nn - (Sum[b^n, {n, #}]) < 0) &] - 1}], b, l + 1])], b]]) &]; AppendTo[s, tmp], {20}]; Map[FromDigits, s] (* Peter J. C. Moses, Aug 06 2015 *)