%I A145105
%S A145105 2,3,0,5,6,7,0,0,0,11,0,13,0,0,0,17,0,19,0,0,0,23,0,0,0,0,28,29,0,31,0,
%T A145105 0,0,0,0,37,0,0,0,41,0,43,0,0,0,47,0,0,0,0,0,53,0,0,0,0,0,59,0,61,0,0,
               0,
%U A145105 0,0,67,0,0,0,71,0,73,0,0,0,0,0,79,0,0,0,83,0,0,0,0,0,89,0,0,0
%N A145105 The above sequence displays all prime numbers starting from 2 which are 
               odd perfect numbers and all even perfect numbers starting from 6. 
               These are filtered according to the revised defintion of perfect 
               numbers.
%C A145105 Generating funciton for the sequence: makelist( ( (num(part(xxx,j))-1)* 
               k_delta( num(part(xxx,j))-1, part( powers(denom(part(xxx,j)),z),1)) 
               +epf (num(part(xxx,j))/2)* k_delta( num(part(xxx,j))/2, part( powers(denom(part(xxx,
               j)),z),1))),j,1,length(xxx));
%D A145105 Y. K. Huen, A matrix map for prime and non-prime numbers, International 
               Journal Of Mathematics, Education, Science and Technolology Vol. 
               6: pages 913-920, 1994.
%H A145105 Y. K. Huen<a href="http://pachome2.pacific.net.sg/~cosmology/index.html">
               QNT Cosmological Model</a>
%F A145105 makelist( ( (num(part(xxx,j))-1)* k_delta( num(part(xxx,j))-1, part( 
               powers(denom(part(xxx,j)),z),1)) +epf (num(part(xxx,j))/2)* k_delta( 
               num(part(xxx,j))/2, part( powers(denom(part(xxx,j)),z),1))),j,1,length(xxx));
%e A145105 j=1 generates 2, j=2 generated 3 and so so.
%Y A145105 Sequence in context: A140508 A063956 A128214 this_sequence A140700 A055615 
               A049268
%Y A145105 Adjacent sequences: A145102 A145103 A145104 this_sequence A145106 A145107 
               A145108
%K A145105 nonn,uned
%O A145105 1,1
%A A145105 Huen Yeong Kong (cosmology(AT)pacific.net.sg), Oct 02 2008