%I A063969
%S A063969 7,60,147,407,470,1053,1175,3431,3822,5126,5960,6280,6321,6897,7200,
%T A063969 8687,9243,10760,12614,15093,16153,18080,18818,19668,20433,20976,24648,
%U A063969 26826,30804,44016,45878,46221,47423,55965,58506,58682,59645,63897
%N A063969 sopf(n) = sopf(n+3), where sopf(n)= A008472(n).
%H A063969 Harry J. Smith, <a href="b063969.txt">Table of n, a(n) for n=1,...,1000</
               a>
%o A063969 (PARI) sopf(n,s,fac,i)=fac=factor(n); for(i=1,matsize(fac)[1],s=s+fac[i,
               1]); return(s); j=[]; for(n=1,100000, if(sopf(n)==sopf(n+3),j=concat(j,
               n))); j
%o A063969 (PARI) sopf(n)= { local(f,s=0); f=factor(n); for(i=1, matsize(f)[1], 
               s+=f[i, 1]); return(s) } { n=0; for (m=1, 10^9, if(sopf(m)==sopf(m 
               + 3), write("b063969.txt", n++, " ", m); if (n==1000, break)) ) } 
               [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 04 2009]
%Y A063969 Cf. A008472, A006145.
%Y A063969 Sequence in context: A135150 A077409 A099347 this_sequence A015570 A024090 
               A156545
%Y A063969 Adjacent sequences: A063966 A063967 A063968 this_sequence A063970 A063971 
               A063972
%K A063969 nonn
%O A063969 1,1
%A A063969 Jason Earls (zevi_35711(AT)yahoo.com), Sep 05 2001