login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A048549 a(n+1) is next smallest prime beginning with a(n), initial prime is 2. 13
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
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
Similar to but different from A069603.
Sequence in context: A065122 A127889 A088603 * A158191 A089703 A088094
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, May 15 1999
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 12 22:48 EDT 2024. Contains 371639 sequences. (Running on oeis4.)