%I A058010
%S A058010 2,17,179,2221,27457,506683,14161729,368345293,9672485827,318083817907,
%T A058010 12695664159413
%N A058010 The main diagonal of N. Fernandez's Order of Primeness array.
%H A058010 N. Fernandez, <a href="http://www.borve.org/primeness/FOP.html">An order 
               of primeness, F(p)</a>
%t A058010 a = Select[ Range[ 20 ], ! PrimeQ[ # ] & ] Table[ Nest[ Prime, a[ [ n 
               ] ], n ], {n, 1, 11} ]
%Y A058010 Cf. A049077, A049078, A049079, A049080, A049081, A007097, A057450, A057451, 
               A057452, A057453, A057456, A057457.
%Y A058010 Sequence in context: A041879 A011550 A102023 this_sequence A126752 A004029 
               A144208
%Y A058010 Adjacent sequences: A058007 A058008 A058009 this_sequence A058011 A058012 
               A058013
%K A058010 nonn
%O A058010 1,1
%A A058010 Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 13 2000