OFFSET
1,1
COMMENTS
LINKS
Artur Jasinski, Table of n, a(n) for n = 1..126
MATHEMATICA
Select[Range[5600], FactorInteger[#^2-1][[-1, 1]]==29&] (* Harvey P. Dale, Feb 16 2011 *)
PROG
(Magma) [ n: n in [2..6000] | m eq 29 where m is D[#D] where D is PrimeDivisors(n^2-1) ]; // Klaus Brockhaus, Feb 17 2011
(PARI) is(n)=n=n^2-1; forprime(p=2, 23, n/=p^valuation(n, p)); n>1 && 29^valuation(n, 29)==n \\ Charles R Greathouse IV, Jul 01 2013
CROSSREFS
KEYWORD
fini,full,nonn
AUTHOR
Artur Jasinski, Oct 21 2010
STATUS
approved