1,1
a(n) = 2*A065813(n)+1, n > 1.
Andy Steward, Titanic Prime Generalized Repunits
Do[p = Prime[n]; k = 1; While[ !PrimeQ[ (p^Prime[k] - 1)/(p - 1)], k++ ]; Print[ Prime[k]], {n, 1, 56} ]
Cf. A084740 (least k such that (n^k-1)/(n-1) is prime).
Sequence in context: A064339 A053199 A045626 this_sequence A064776 A096659 A046826
Adjacent sequences: A065851 A065852 A065853 this_sequence A065855 A065856 A065857
hard,nonn
Vladeta Jovovic (vladeta(AT)Eunet.yu), Nov 26 2001
Search completed in 0.002 seconds