A048549 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

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 *)

CROSSREFS

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

Similar to but different from A069603.

Sequence in context: A065122 A127889 A088603 * A158191 A089703 A088094

Adjacent sequences: A048546 A048547 A048548 * A048550 A048551 A048552

KEYWORD

nonn,base

AUTHOR

Patrick De Geest, May 15 1999

STATUS

approved