A181448 Numbers k such that 5 is the largest prime factor of k^2 - 1.
4, 9, 11, 19, 26, 31, 49, 161
Offset: 1
Programs
-
Magma
[ n: n in [2..200] | m eq 5 where m is D[#D] where D is PrimeDivisors(n^2-1) ]; // Klaus Brockhaus, Feb 17 2011
-
Mathematica
Select[Range[200], FactorInteger[#^2-1][[-1, 1]]==5&]
-
PARI
is(n)=n=n^2-1; n>>=valuation(n,2); n/=3^valuation(n,3); n>1 && 5^valuation(n, 5)==n \\ Charles R Greathouse IV, Jul 01 2013
Comments