A120322 RF(11): refactorable numbers with 11 as smallest prime factor.
25937424601, 3575694237941010577249, 52289689788971837545849, 159024068785448665562401, 604292326212030787555081, 1074497011086501939579049, 10912062142819279835644801
Offset: 1
Keywords
Examples
a(1)=11^(11-1)=25937424601.
Programs
-
Maple
with(numtheory); p:=11: a:=p^(p-1): RF11:=[a]: P:=[seq(ithprime(i),i=2..pi(p)-1)]; for w to 1 do for j from 1 to 12^3 do k:=2*j+1; if andmap(z -> k mod z <> 0, P) then for s from 2 to p-1 by 2 do #accelerate creation n:=a*k^s; t:=tau(n); if not n in RF11 and (n mod t = 0) then RF11:=[op(RF11),n]; print(ifactor(n)); fi; od; fi; od od; RF11:=sort(RF11);
Formula
a(n) = odd square, 11 is the smallest prime factor and refactorable.
Comments