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

Author

Amarnath Murthy, Feb 24 2002

Keywords

• base
• easy
• nonn

Examples

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

Programs

Mathematica

Reversal = ToExpression @ StringReverse @ ToString[ # ] &; Table[ Floor[n/Reversal[n]], {n, 1, 100}]
Table[Floor[n/IntegerReverse[n]],{n,100}] (* Harvey P. Dale, Mar 24 2025 *)

Extensions

Edited by Robert G. Wilson v, Mar 02 2002