OFFSET
1,2
COMMENTS
See the table in A244425 and read the table by the other antidiagonal.
MATHEMATICA
a[n_] := Block[{m = 0, d = n, i = 1, l, p}, While[m <= d, l = m; m = 9 i*10^(i - 1) + l; i++]; i--; p = Mod[d - l, i]; q = Floor[(d - l)/i] + 10^(i - 1); If[ p != 0, IntegerDigits[q][[p]], Mod[q - 1, 10]]]; Table[ a[ Ceiling[(Sqrt[ 8n + 1] - 1)/2]^2 - n + 1], {n, 105}]
CROSSREFS
KEYWORD
AUTHOR
Robert G. Wilson v, Jun 27 2014
STATUS
approved