%I A067546
%S A067546 1,3,15,105,840,7560,83160,1081080,15135120,227026800,3859455600,
%T A067546 73329656400,1466593128000,30798455688000,708364480824000,
%U A067546 17000747539776000,425018688494400000,11050485900854400000
%N A067546 Determinant of an n X n matrix whose diagonal are the first n non-Prime 
               numbers and all other elements are 1's.
%e A067546 The determinant begins:
%e A067546 1 1 1 1 1 1 1 ...
%e A067546 1 4 1 1 1 1 1 ...
%e A067546 1 1 6 1 1 1 1 ...
%e A067546 1 1 1 8 1 1 1 ...
%e A067546 1 1 1 1 9 1 1 ...
%e A067546 1 1 1 1 1 10 1 ...
%t A067546 NonPrime[ n_Integer ] := FixedPoint[ n + PrimePi[ # ] &, n + PrimePi[ 
               n ] ]; Table[ Det[ DiagonalMatrix[ Table[ NonPrime[ i ] - 1, {i, 
               1, n} ] ] + 1 ], {n, 1, 20} ]
%Y A067546 Sequence in context: A025547 A088989 A001801 this_sequence A015682 A001147 
               A000268
%Y A067546 Adjacent sequences: A067543 A067544 A067545 this_sequence A067547 A067548 
               A067549
%K A067546 nonn
%O A067546 1,2
%A A067546 Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 28 2002