AUTHOR
_Robert G. Wilson v (rgwv(AT)rgwv.com), _, Feb 12 2005
_Robert G. Wilson v (rgwv(AT)rgwv.com), _, Feb 12 2005
0,12
Add 4 to each of the preceding digits, beginning with 0.
0, 4, 8, 12, 5, 6, 9, 10, 13, 5, 4, 5, 7, 9, 8, 9, 11, 13, 12, 13, 5, 5, 5, 7, 5, 6, 5, 7, 9, 9, 9, 11, 9, 10, 9, 11, 13, 13, 13, 5, 5, 13, 5, 4, 13, 5, 5, 5, 7, 5, 7, 5, 7, 9, 9, 5, 7, 9, 8, 5, 7, 9, 9, 9, 11, 9, 11, 9, 11, 13, 13, 9, 11, 13, 12, 9, 11, 13, 13, 13, 5, 5, 13, 5, 5, 13, 5, 5, 5, 7
0,1
Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 4]], {0}, 14]]
base,nonn,new
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 12 2005
approved