This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A289618 #7 Jul 10 2017 03:53:26 %S A289618 0,0,0,0,0,1,0,0,0,1,0,0,0,1,1,0,0,0,0,0,1,1,0,2,0,1,0,0,0,1,0,0,1,1, %T A289618 1,1,0,1,1,2,0,1,0,0,0,1,0,0,0,0,1,0,0,2,1,2,1,1,0,2,0,1,0,0,1,1,0,0, %U A289618 1,1,0,1,0,1,0,0,1,1,0,0,0,1,0,2,1,1,1,2,0,2,1,0,1,1,1,1,0,0,0,1,0,1,0,2,1,1,0,1,0,1,1,0,0,1,1,0,0,1,1,2 %N A289618 a(n) = A289617(n) - A046645(n) = A005187(A001222(n)) - A046645(n). %H A289618 Antti Karttunen, <a href="/A289618/b289618.txt">Table of n, a(n) for n = 1..10000</a> %H A289618 <a href="/index/Eu#epf">Index entries for sequences computed from exponents in factorization of n</a> %F A289618 a(n) = A289617(n) - A046645(n) = A005187(A001222(n)) - A046645(n). %o A289618 (Scheme) (define (A289618 n) (- (A289617 n) (A046645 n))) %Y A289618 Cf. A046645, A289617. %Y A289618 Cf. A268375 (positions of zeros), A289619 (of ones). %K A289618 nonn %O A289618 1,24 %A A289618 _Antti Karttunen_, Jul 08 2017