A068159 a(n) = floor[ n/R(n) ], where R(n) (A004086) = Digit reversal of n.

1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 10, 1, 1, 0, 0, 0, 0, 0, 0, 0, 10, 2, 1, 1, 0, 0, 0, 0, 0, 0, 10, 2, 1, 1, 1, 0, 0, 0, 0, 0, 10, 3, 2, 1, 1, 1, 0, 0, 0, 0, 10, 3, 2, 1, 1, 1, 1, 0, 0, 0, 10, 4, 2, 1, 1, 1, 1, 1, 0, 0, 10, 4, 2, 2, 1, 1, 1, 1, 1, 0, 10, 4, 3, 2, 1, 1, 1, 1, 1, 1

Offset

1,10

Links

Table of n, a(n) for n=1..99.

Example

a(61) = floor[61 / 16] = 3.

Mathematica

Reversal = ToExpression @ StringReverse @ ToString[ # ] &; Table[ Floor[n/Reversal[n]], {n, 1, 100}]

Crossrefs

Sequence in context: A287190 A277926 A222521 * A108695 A265373 A309202

Adjacent sequences: A068156 A068157 A068158 * A068160 A068161 A068162

Keyword

base,easy,nonn

Author

Amarnath Murthy, Feb 24 2002

Extensions

Edited by Robert G. Wilson v, Mar 02 2002

Status

approved