Search: id:A067560
Results 1-1 of 1 results found.

%I A067560
%S A067560 1,15,209,3895,58828,987012,32251150,1259339776,33525669556,973603483875,
%T A067560 54655725143297,3308661532816640,125757090803564374,5201646874854669888,
%U A067560 415867280417850247000,19065322853430198710625,898206693379667144028053
%V A067560 1,-15,-209,3895,58828,-987012,-32251150,1259339776,33525669556,-973603483875,
%W A067560 -54655725143297,3308661532816640,125757090803564374,-5201646874854669888,
%X A067560 -415867280417850247000,19065322853430198710625,898206693379667144028053
%N A067560 Determinant of n X n matrix whose rows are cyclic permutations of 1..non-Prime(n)(A018252).
%H A067560 Leonard Deuler, <a href="http://www.pijnappel2.tmfweb.nl/no_primes.htm">
               The n-th nonprime</a>
%e A067560 a(4) = 3895 because this is the determinant of [(1,4,6,8), (4,6,8,1), 
               (6,8,1,4), (8,1,4,6)]
%t A067560 NonPrime[n_Integer] := FixedPoint[n + PrimePi[ # ] &, n + PrimePi[n]]; 
               f[n_] := Module[{a = Table[ NonPrime[i], {i, 1, n} ], m = {}, k = 
               0}, While[k < n, m = Append[m, RotateLeft[a, k]]; k++ ]; Det[m]]; 
               Table[ f[n], {n, 1, 18} ]
%Y A067560 Sequence in context: A051813 A028230 A122572 this_sequence A019553 A112496 
               A000483
%Y A067560 Adjacent sequences: A067557 A067558 A067559 this_sequence A067561 A067562 
               A067563
%K A067560 easy,sign
%O A067560 1,2
%A A067560 Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 29 2002

Search completed in 0.001 seconds