A261270 Base-10 representation of A261269.

3, 7, 29, 59, 239, 479, 3833, 30671, 61343, 981493, 3925973, 62815573, 502524587, 2010098351, 16080786809, 1029170355779, 4116681423119, 65866902769909, 263467611079637, 2107740888637103, 134895416872774619, 17266613359715151259, 1105063255021769680613

Offset

1,1

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

Cf. A261269.

Sequence in context: A068485 A019352 A290963 * A171134 A080806 A321191

Adjacent sequences: A261267 A261268 A261269 * A261271 A261272 A261273

Keyword

nonn,easy,base

Author

Clark Kimberling, Sep 17 2015

Status

approved