A328480 a(0) = 0; for n > 0, a(n) = n - {the largest term of A129912 <= n}.

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, 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, 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

Offset

0,5

Links

Antti Karttunen, Table of n, a(n) for n = 0..30030

Index entries for sequences related to primorial numbers

Prog

(PARI)
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
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)))));

Crossrefs

Cf. A002110, A129912, A328481, A328482, A328483.

Sequence in context: A014588 A293497 A278164 * A279681 A053645 A212598

Adjacent sequences: A328477 A328478 A328479 * A328481 A328482 A328483

Keyword

nonn

Author

Antti Karttunen, Oct 19 2019

Status

approved