%I #3 Mar 30 2012 18:36:04
%S 625,1500625,9150625,17850625,37515625,52200625,73530625,81450625,
%T 174900625,442050625,577200625,1171350625,1766100625,1838265625,
%U 2136750625,3049800625,4931550625,7573350625,8653650625,12594450625
%N RF(5): refactorable numbers with smallest prime factor 5.
%C See A033950 for references. For any prime p, p^(p-1) is the smallest element of RF(p), the refactorable numbers whose smallest prime factor is p. Thus 5^(5-1)=625 is the first element. Other elements would also be 5^4*17^4 or 5^16*17^4.
%F a(n) = odd square, 5 is the smallest prime factor and refactorable.
%p with(numtheory); RF5:=[]: p:=5: for w to 1 do for j from 1 to 12^5 do k:=2*j+1; if k mod 3 <> 0 and k mod p = 0 then n:=k^2; t:=tau(n); if (n mod t = 0) then RF5:=[op(RF5),n]; print(ifactor(n)); fi fi; od od;
%Y Cf. A033950, A036896, A036897.
%K nonn
%O 1,1
%A _Walter Kehowski_, Jun 20 2006
|