OFFSET
1,1
MATHEMATICA
almostNatural[n_, b_] := Block[{m = 0, d = n, i = 1, l, p}, While[m <= d, l = m; m = (b - 1) i*b^(i - 1) + l; i++]; i--; p = Mod[d - l, i]; q = Floor[(d - l)/i] + b^(i - 1); If[p != 0, IntegerDigits[q, b][[p]], Mod[q - 1, b]]]; Table[ almostNatural[ n, 10], {n, Prime@ Range@ 105}] (* Robert G. Wilson v, Jun 29 2014 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Nov 06 2005
EXTENSIONS
More terms from Joshua Zucker, May 03 2006
STATUS
approved