|
|
A140434
|
|
Number of new visible points created at each step in an n X n grid.
|
|
12
|
|
|
1, 2, 4, 4, 8, 4, 12, 8, 12, 8, 20, 8, 24, 12, 16, 16, 32, 12, 36, 16, 24, 20, 44, 16, 40, 24, 36, 24, 56, 16, 60, 32, 40, 32, 48, 24, 72, 36, 48, 32, 80, 24, 84, 40, 48, 44, 92, 32, 84, 40, 64, 48, 104, 36, 80, 48, 72, 56, 116, 32, 120
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
a(n) is the number of rationals p/q such that |p| + |q| = n. - Geoffrey Critzer, Oct 11 2011
a(n) is the number of nonempty lists of positive integers whose continuants are equal to n. For example, for n = 6 these continuants are [6], [5,1], [1,5], and [1,4,1]. - Jeffrey Shallit, May 18 2016
a(n) is the number of Christoffel words of length n, for n>=2. Here a binary word w is a Christoffel word if its first and last letters are different, say w = axb with a<>b, and x is a palindrome, and w is the concatenation of two palindromes. See the book of Reutenauer. - Jeffrey Shallit, Apr 04 2024
|
|
REFERENCES
|
C. Reutenauer, From Christoffel words to Markoff numbers, Oxford University Press, 2019.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 2*phi(n), where phi is Euler's phi function, A000010, for n >= 2.
G.f.: Sum_{k>=1} mu(k) * x^k * (1 + x^k)/(1 - x^k)^2. - Seiichi Manyama, May 24 2021
|
|
EXAMPLE
|
G.f. = x + 2*x^2 + 4*x^3 + 4*x^4 + 8*x^5 + 4*x^6 + 12*x^7 + 8*x^8 + 12*x^9 + ...
|
|
MATHEMATICA
|
f[n_] := FoldList[Plus, 1, 2 Array[EulerPhi, n, 2]] // Differences // Prepend[#, 1]&
a[ n_] := If[ n < 3, Max[0, n], Sum[ MoebiusMu[d] (2 n/d - 1 - Mod[n/d, 2]), {d, Divisors@n}]]; (* Michael Somos, Jul 24 2015 *)
|
|
PROG
|
(Haskell)
a140434 n = a140434_list !! (n-1)
a140434_list = 1 : zipWith (-) (tail a018805_list) a018805_list
(PARI) {a(n) = if( n<3, max(0, n), sumdiv(n, d, moebius(d) * (2*n/d - 1 - (n/d)%2)))}; /* Michael Somos, Jul 24 2015 */
(PARI) my(N=66, x='x+O('x^N)); Vec(sum(k=1, N, moebius(k)*x^k*(1+x^k)/(1-x^k)^2)) \\ Seiichi Manyama, May 24 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|