Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A192687
Male-female differences: a(n) = A005378(n) - A005379(n).
3
1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 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, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
OFFSET
0
COMMENTS
0 <= a(n) <= 1;
for n > 0: a(n) = A010056(n-1), a(A001690(n)-1) = 0, a(A000071(n)) = 1.
REFERENCES
Hofstadter, "Goedel, Escher, Bach", p. 137.
PROG
(Haskell)
a192687 n = a192687_list !! n
a192687_list = zipWith (-) females males where
females = 1 : zipWith (-) [1..] (map (males !!) females)
males = 0 : zipWith (-) [1..] (map (females !!) males)
(PARI) a(n)=my(k=(n+1)^2); k+=(k+1)<<2; issquare(k) || issquare(k-8) \\ Charles R Greathouse IV, Nov 07 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Reinhard Zumkeller, Jul 12 2011
STATUS
approved