A261201 Base-10 representation of A261200.

1, 2, 5, 11, 23, 47, 191, 383, 3067, 12269, 196307, 6281839, 50254717, 201018869, 804075479, 1608150959, 102921661397, 1646746582367, 13173972658937, 105391781271503, 210783562543007, 3372537000688127, 26980296005505019, 863369472176160611

Offset

1,2

Links

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

Mathematica

b = 2; s = {{1}};
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], {30}]; Map[FromDigits, s]
Map[FromDigits, s] (* A261200 *)
Map[FromDigits[#, b] &, s] (* A261201 *)
(* Peter J. C. Moses, Aug 06 2015 *)

Crossrefs

A055011, A261200 and A261201 are all essentially the same sequence.

Sequence in context: A055496 A105120 A084403 * A055011 A007505 A246492

Adjacent sequences: A261198 A261199 A261200 * A261202 A261203 A261204

Keyword

nonn,easy,base

Author

Clark Kimberling, Sep 16 2015

Status

approved