|
%I #17 Sep 08 2022 08:46:11
%S 0,1,8,0,16,0,0,14,48,0,0,22,0,39,112,0,16,68,0,76,0,0,44,138,0,0,52,
%T 0,84,232,0,31,128,0,136,0,0,74,228,0,0,82,0,129,352,0,46,188,0,196,0,
%U 0,104,318,0,0,112,0,174,472,0,61,248,0,256,0,0,134,408,0,0,142,0,219,592,0,76,308,0,316,0,0,164,498,0,0,172,0
%N a(n) = n*(n mod 3)*(n mod 5).
%C a(n) = 0 for n = 3k and 5k, k=0,1,2,...
%H Colin Barker, <a href="/A255680/b255680.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_30">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, -1).
%F Empirical g.f.: x*(8*x^28 + 6*x^27 + 8*x^25 + 42*x^22 + 16*x^21 + 44*x^18 + 52*x^16 + 14*x^15 + 112*x^13 + 39*x^12 + 22*x^10 + 48*x^7 + 14*x^6 + 16*x^3 + 8*x + 1) / ((x - 1)^2*(x^2 + x + 1)^2*(x^4 + x^3 + x^2 + x + 1)^2*(x^8 - x^7 + x^5 - x^4 + x^3 - x + 1)^2). - _Colin Barker_, Mar 02 2015
%F a(n) = n*A010872(n)*A010874(n). - _Michel Marcus_, Mar 03 2015
%t Table[x*Mod[x, 3]*Mod[x, 5], {x, 0, 100}]
%t LinearRecurrence[{0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1},{0,1,8,0,16,0,0,14,48,0,0,22,0,39,112,0,16,68,0,76,0,0,44,138,0,0,52,0,84,232},100] (* _Harvey P. Dale_, Sep 06 2015 *)
%o (PARI) vector(101, n, (n-1)*((n-1)%3)*((n-1)%5))
%o (Magma) [n*(n mod 3)*(n mod 5): n in [0..80]]; // _Vincenzo Librandi_, Mar 03 2015
%Y Cf. A255642.
%K nonn,easy
%O 0,3
%A _Zak Seidov_, Mar 01 2015
%E Typo in first Mathematica program corrected by _Harvey P. Dale_, Jul 03 2021
|
