# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a090175
Showing 1-1 of 1

%I A090175 #4 Mar 30 2012 17:34:14
%S A090175 1,2,3,4,5,6,7,8,9,10,0,1,2,3,4,5,6,7,8,8,9,10,11,0,1,2,3,4,5,4,5,6,7,
%T A090175 8,9,10,11,12,0,12,13,0,1,2,3,4,5,6,7,5,6,7,8,9,10,11,12,13,14,12,13,
%U A090175 14,15,0,1,2,3,4,5,2,3,4,5,6,7,8,9,10,11,8,9,10,11,12,13,14,15,16,17,14,15
%N A090175 a(n) = Mod[n,10+Sum[Mod[Floor[n/10^m],10],{m,1,10}]]
%C A090175 A variable cycle function based on powers of ten.
%t A090175 digits=200 f[n_]=10+Sum[Mod[Floor[n/10^m], 10], {m, 1, 10}] a=Table[Mod[n, f[n]], {n, 1, digits}]
%K A090175 nonn
%O A090175 1,2
%A A090175 _Roger L. Bagula_, Jan 19 2004

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE