OFFSET
1,1
COMMENTS
MATHEMATICA
Select[Range[200], FactorInteger[#^2-1][[-1, 1]]==5&]
PROG
(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
(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
CROSSREFS
KEYWORD
fini,full,nonn,changed
AUTHOR
Artur Jasinski, Oct 21 2010
STATUS
approved