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

Search: id:a276149
Showing 1-1 of 1

%I A276149 #14 Aug 31 2016 20:53:45
%S A276149 0,1,4,4,2,2,18,18,18,18,18,18,12,12,12,12,12,12,6,6,6,6,6,6,96,96,96,
%T A276149 96,96,96,96,96,96,96,96,96,96,96,96,96,96,96,96,96,96,96,96,96,72,72,
%U A276149 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,48
%N A276149 a(0) = 0; for n >= 1, a(n) = A048764(n) * (1+(A084558(n)-A099563(n))).
%C A276149 Auxiliary function for computing A225901: the most significant digit in factorial base representation of n is "inverted", the rest of digits are "cleared" (replaced with zeros).
%H A276149 Antti Karttunen, <a href="/A276149/b276149.txt">Table of n, a(n) for n = 0..5039</a>
%H A276149 <a href="/index/Fa#facbase">Index entries for sequences related to factorial base representation</a>
%F A276149 a(0) = 0; for n >= 1, a(n) = A048764(n) * (1+(A084558(n)-A099563(n))).
%t A276149 {0}~Join~Table[# (1 + ((m = 1; While[m! <= n, m++]; m - 1) - Floor[n/#])) &[k = 1; While[(k + 1)! <= n, k++]; k!], {n, 96}] (* _Michael De Vlieger_, Aug 30 2016, after _Jayanta Basu_ at A084558 *)
%o A276149 (Scheme) (define (A276149 n) (if (zero? n) n (* (A048764 n) (+ 1 (- (A084558 n) (A099563 n))))))
%Y A276149 Cf. A048764, A084558, A099563, A225901.
%K A276149 nonn,base
%O A276149 0,3
%A A276149 _Antti Karttunen_, Aug 29 2016

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