|
%I #9 Aug 31 2016 20:56:18
%S 0,0,0,0,0,1,2,3,0,1,2,3,0,1,2,3,0,1,0,1,2,3,4,5,6,7,8,9,10,11,12,13,
%T 14,15,16,17,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,0,1,2,3,4,5,
%U 6,7,8,9,10,11,12,13,14,15,16,17,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,0,1,2,3,4,5,0
%N Discard the most significant digit when n is expressed in greedy A001563-base (A276326), then convert back to decimal: a(n) = n - A276334(n).
%H Antti Karttunen, <a href="/A276335/b276335.txt">Table of n, a(n) for n = 0..4320</a>
%F a(n) = n - A276334(n).
%t {0}~Join~Table[n - # Floor[n/#] &@(# #!) &@ NestWhile[# + 1 &, 0, # #! <= n &[# + 1] &], {n, 96}] (* _Michael De Vlieger_, Aug 31 2016 *)
%o (Scheme) (define (A276335 n) (- n (A276334 n)))
%Y Cf. A001563, A276326, A276328, A276334, A276331, A276337.
%Y Cf. also A257687.
%K nonn,base
%O 0,7
%A _Antti Karttunen_, Aug 30 2016
|
