A164008 Zero together with row 8 of the array in A163280.

0, 17, 34, 39, 68, 65, 102, 98, 128, 153, 170, 198, 228, 260, 294, 330, 368, 408, 450, 494, 540, 588, 638, 690, 744, 800, 858, 918, 980, 1044, 1110, 1178, 1248, 1320, 1394, 1470, 1548, 1628, 1710, 1794, 1880, 1968, 2058, 2150, 2244, 2340, 2438, 2538, 2640

Offset

0,2

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (3, -3, 1).

Formula

Conjecture: a(n) = A028563(n), n > 9. [R. J. Mathar, Jul 31 2010]

Maple

A033676 := proc(n) local dvs; dvs := sort(convert(numtheory[divisors](n), list)) ; op(floor((nops(dvs)+1)/2) , dvs) ; end: A163280 := proc(n, k) local r, T ; r := 0 ; for T from k^2 by k do if A033676(T) = k then r := r+1 ; if r = n then RETURN(T) ; fi; fi; od: end: printf("0, ") ; for n from 1 to 70 do printf("%d, ", A163280(8, n)) ; end do ; # R. J. Mathar, Feb 05 2010

Mathematica

LinearRecurrence[{3, -3, 1}, {0, 17, 34, 39, 68, 65, 102, 98, 128, 153, 170, 198, 228}, 50] (* Harvey P. Dale, Dec 25 2022 *)

Crossrefs

Cf. A008578, A161344, A161345, A163280, A164000, A164007, A164009.

Sequence in context: A135637 A040272 A062054 * A013577 A234942 A044857

Adjacent sequences: A164005 A164006 A164007 * A164009 A164010 A164011

Keyword

nonn

Author

Omar E. Pol, Aug 08 2009

Extensions

Terms beyond 228 from R. J. Mathar, Feb 05 2010

Status

approved