|
%I #11 Sep 08 2022 08:46:08
%S 0,0,0,2,0,4,4,5,6,0,4,9,4,13,9,5,2,0,17,18,19,0,2,6,11,18,26,8,18,1,
%T 14,28,12,30,15,0,22,8,34,22,10,41,31,22,13,5,44,39,34,30,26,24,22,21,
%U 22,23,25,29,33,39,46,54,1,10,21,34,47,63,10,27,46
%N Floor( n^2*log(n) ) mod n.
%C n for which a(n) is 0: 1, 2, 3, 5, 10, 18, 22, 36, 88, 92, 176, 235, 844, 1481, 1713, 7098, 8140, 19848, ... [_Bruno Berselli_, Jun 30 2014]
%H Vincenzo Librandi, <a href="/A244340/b244340.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[Floor[Mod[n^2 Log[n], n]], {n, 100}]
%o (Magma) [Floor(n^2*Log(n)) mod n: n in [1..100]];
%Y Cf. A002489, A072631.
%K nonn,easy
%O 1,4
%A _Vincenzo Librandi_, Jun 30 2014
|
