EXCEL质数通项公式8000以下

sun3515

把下列公式复制到单元格Q1下，你将获得8000以下的第n个对应质数，不妨试一下：
IF(Q1=1,2,IF(Q1=2,3,INDEX(UNIQUE((SMALL(IF({1,0},(SMALL(IF({1,0},(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(8*Q1))))),(SMALL(IF({1,0},SMALL(IF({1,0},(SMALL(IF({1,0},5*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1))))),7*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1)))))),ROW(INDIRECT("1:"&(4*Q1))))),(SMALL(IF({1,0},11*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1))))),13*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1)))))),ROW(INDIRECT("1:"&(4*Q1)))))),ROW(INDIRECT("1:"&(4*Q1)))),SMALL(IF({1,0},(SMALL(IF({1,0},17*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1))))),19*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1)))))),ROW(INDIRECT("1:"&(4*Q1))))),(SMALL(IF({1,0},23*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1))))),29*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1)))))),ROW(INDIRECT("1:"&(4*Q1)))))),ROW(INDIRECT("1:"&(4*Q1))))),ROW(INDIRECT("1:"&(8*Q1)))))),ROW(INDIRECT("1:"&(16*Q1))))),(SMALL(IF({1,0},(SMALL(IF({1,0},(SMALL(IF({1,0},SMALL(IF({1,0},31*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1))))),37*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1)))))),ROW(INDIRECT("1:"&(2*Q1)))),SMALL(IF({1,0},41*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1))))),43*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1)))))),ROW(INDIRECT("1:"&(2*Q1))))),ROW(INDIRECT("1:"&(4*Q1))))),(SMALL(IF({1,0},SMALL(IF({1,0},47*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1))))),53*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1)))))),ROW(INDIRECT("1:"&(2*Q1)))),SMALL(IF({1,0},59*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1))))),61*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1)))))),ROW(INDIRECT("1:"&(2*Q1))))),ROW(INDIRECT("1:"&(4*Q1)))))),ROW(INDIRECT("1:"&(8*Q1))))),(SMALL(IF({1,0},(SMALL(IF({1,0},SMALL(IF({1,0},67*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1))))),71*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1)))))),ROW(INDIRECT("1:"&(2*Q1)))),SMALL(IF({1,0},73*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1))))),79*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1)))))),ROW(INDIRECT("1:"&(2*Q1))))),ROW(INDIRECT("1:"&(4*Q1))))),(SMALL(IF({1,0},SMALL(IF({1,0},83*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1))))),89*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1)))))),ROW(INDIRECT("1:"&(2*Q1)))),SMALL(IF({1,0},97*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1))))),101*(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(2*Q1)))))),ROW(INDIRECT("1:"&(2*Q1))))),ROW(INDIRECT("1:"&(4*Q1)))))),ROW(INDIRECT("1:"&(8*Q1)))))),ROW(INDIRECT("1:"&(16*Q1)))))),ROW(INDIRECT("1:"&(32*Q1))))),FALSE,TRUE),Q1-2)))

sun3515

应更正为：复制公式到EXCEL单元格中，在单元格Q1输入一数值n，你将获得第n个对应质数，小于8000的质数.如Q1=5,质数为11。

剑指E

=SMALL(IF(MMULT(IF(MOD(ROW($1:$1000)/TRANSPOSE(ROW($1:$1000)),1),,1),ROW($1:$1000)^0)=2,ROW($1:$1000)),$Q$1)
三键

sun3515

剑指E 发表于 2023-9-18 21:23
=SMALL(IF(MMULT(IF(MOD(ROW($1:$1000)/TRANSPOSE(ROW($1:$1000)),1),,1),ROW($1:$1000)^0)=2,ROW($1:$1000 ...

sun3515

=IF(Q1=1,2,IF(Q1=2,3,INDEX(UNIQUE(SMALL(IF({1,0},(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(8*Q1))))),(SMALL(MMULT(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*Q1))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*Q1))))+{1})),ROW(INDIRECT("1:"&Q1))),TRANSPOSE(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*Q1))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*Q1))))+{1})),ROW(INDIRECT("1:"&Q1))))),ROW(INDIRECT("1:"&(8*Q1)))))),ROW(INDIRECT("1:"&(8*Q1)))),FALSE,TRUE),Q1-2)))

sun3515

=IF(Q1=1,2,IF(Q1=2,3,IF(Q1<8,INDEX(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(8*Q1)))),Q1-2),INDEX(UNIQUE(SMALL(IF({1,0},(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(8*Q1))))),(SMALL(MMULT(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*Q1))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*Q1))))+{1})),ROW(INDIRECT("1:"&Q1))),TRANSPOSE(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*Q1))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*Q1))))+{1})),ROW(INDIRECT("1:"&Q1))))),ROW(INDIRECT("1:"&(8*Q1)))))),ROW(INDIRECT("1:"&(8*Q1)))),FALSE,TRUE),Q1-2))))