|
%I #6 Oct 19 2019 21:28:05
%S 0,0,0,1,2,3,0,1,2,3,4,5,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,
%T 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
%U 26,27,28,29,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31
%N a(0) = 0; for n > 0, a(n) = n - {the largest term of A129912 <= n}.
%H Antti Karttunen, <a href="/A328480/b328480.txt">Table of n, a(n) for n = 0..30030</a>
%H <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>
%o (PARI)
%o isA129912(n) = { my(o=valuation(n, 2), t); if(o<1||n<2, return(n==1)); n>>=o; forprime(p=3, , t=valuation(n, p); n/=p^t; if(t>o || t<o-1, return(0)); if(t==0, return(n==1)); o=t); }; \\ From A129912
%o A328480(n) = if(!n,n, my(u=0); for(k=1, oo, if(isA129912(k), if(k==n, return(0), if(k>n, return(n-u), u = k)))));
%Y Cf. A002110, A129912, A328481, A328482, A328483.
%K nonn
%O 0,5
%A _Antti Karttunen_, Oct 19 2019
|
