login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A278169 Characteristic function for A000960. 7
1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET
1
LINKS
FORMULA
a(1) = 1; for n > 1, a(n) = A100617(n) - A100617(n-1).
MATHEMATICA
b[n_] := (For[m = n; i = 1, i <= n-1, i++, d = n-i; m = d*Ceiling[m/d+1]]; m); A000960 = Array[b, 12]; Boole[MemberQ[A000960, #]]& /@ Range[A000960 // Last] (* Jean-François Alcover, Nov 24 2016 *)
PROG
(Scheme) (define (A278169 n) (if (= 1 n) n (- (A100617 n) (A100617 (- n 1)))))
(PARI) a(n)=local(A=n, B=n-1, C, m=0); until(A==B, m=m+1; C=A-B; A=abs(A-m-A%m); B=abs(B-m-B%m)); if(C<0, 1, 0) \\ Mikhail Kurkov, Apr 30 2022
CROSSREFS
Characteristic function of A000960.
Cf. A100617 (partial sums).
Sequence in context: A355943 A102242 A005369 * A262693 A267423 A108340
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 23 2016
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 10:55 EDT 2024. Contains 371241 sequences. (Running on oeis4.)