%I A064678
%S A064678 5,15,77,99,104,153,369,492,539,714,1330,2491,4191,5405,5831,5959,6556,
%T A064678 6579,6723,8463,9424,12221,12351,12726,13419,14587,21716,24432,24880,
%U A064678 24895,26642,30267,31487,33019,35456,38324,43215,43802,44831,45524
%N A064678 Numbers n such that sopf(n)=sopfr(n+1), where sopf(n)=A008472 and sopfr(n)=A001414.
%H A064678 Harry J. Smith, <a href="b064678.txt">Table of n, a(n) for n=1,...,500</
               a>
%o A064678 (PARI) sopf(n)= { local(f,s=0); f=factor(n); for(i=1, matsize(f)[1], 
               s+=f[i, 1]); return(s) } sopfr(n)= { local(f,s=0); f=factor(n); for(i=1, 
               matsize(f)[1], s+=f[i, 1]*f[i, 2]); return(s) } { n=0; for (m=1, 
               10^9, if (sopf(m)==sopfr(m + 1), write("b064678.txt", n++, " ", m); 
               if (n==500, break)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), 
               Sep 22 2009]
%Y A064678 Sequence in context: A149654 A149655 A032122 this_sequence A088935 A030487 
               A165470
%Y A064678 Adjacent sequences: A064675 A064676 A064677 this_sequence A064679 A064680 
               A064681
%K A064678 easy,nonn
%O A064678 1,1
%A A064678 Jason Earls (zevi_35711(AT)yahoo.com), Oct 10 2001