cp's OEIS Frontend

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.

A193495 Number of odd divisors of Lucas(n), Lucas numbers beginning at 2.

This page as a plain text file.
%I A193495 #18 Feb 15 2020 23:58:40
%S A193495 1,1,2,1,2,2,3,2,2,2,4,2,4,2,4,4,2,2,8,2,4,4,8,4,4,8,4,4,6,4,12,2,4,4,
%T A193495 8,16,8,2,4,8,8,2,24,4,16,32,8,2,8,4,16,8,8,2,20,24,4,8,8,8,32,2,4,32,
%U A193495 4,32,24,4,4,16,16,2,8,4,8,64,4,16,12,2,4
%N A193495 Number of odd divisors of Lucas(n), Lucas numbers beginning at 2.
%C A193495 This is to A193292 as A000032 Lucas numbers (beginning at 2) is to A000045 Fibonacci numbers.
%H A193495 Amiram Eldar, <a href="/A193495/b193495.txt">Table of n, a(n) for n = 0..1000</a>
%F A193495 a(n) = A001227(A000032(n)).
%e A193495 a(18) = 8 because L(18) = 5778 = 2 * 3^3 * 107 whose odd divisors are 8 in number: {1, 3, 9, 27, 107, 321, 963, 2889}. a(n) = 2 iff n is in A001606 (Indices of prime Lucas numbers).
%t A193495 Table[luc = LucasL[n]; r = IntegerExponent[luc, 2]; DivisorSigma[0, luc/2^r], {n, 0, 100}] (* _T. D. Noe_, Jul 29 2011 *)
%t A193495 Table[Count[Divisors[LucasL[n]],_?OddQ],{n,0,80}] (* _Harvey P. Dale_, Mar 28 2019 *)
%Y A193495 Cf. A000032, A001227, A001606, A193292.
%K A193495 nonn,easy
%O A193495 0,3
%A A193495 _Jonathan Vos Post_, Jul 28 2011