%I A048674
%S A048674 1,2,3,25,26,33,93,1034,970225,8550146
%N A048674 Those A048673 for which A048673[ n ] = n.
%C A048674 Factorization: 1, 2, 3, 5^2, 2*13, 3*11, 3*31, 2*11*47, 5^2*197^2, 2*11*47*8269
%e A048674 E.g. 26=2*13=((3*17)+1)/2
%p A048674 factsuccbijection := n -> floor((succfactorization(n)+1)/2); # see also 
               A045965
%p A048674 # Invariant Factorization Successors: invariant_factsuccessors := proc(upto_n) 
               local b,i; b := [ ]; for i from 1 to upto_n do if(factsuccbijection(i) 
               = i) then b := [ op(b), i ]; fi; od: RETURN(b); end;
%Y A048674 Cf. A045965 and A048673.
%Y A048674 Sequence in context: A003221 A013312 A013318 this_sequence A094998 A109586 
               A060371
%Y A048674 Adjacent sequences: A048671 A048672 A048673 this_sequence A048675 A048676 
               A048677
%K A048674 nonn,hard
%O A048674 1,2
%A A048674 Antti Karttunen, Jul 14 1999