|
|
|
|
#19 by Harvey P. Dale at Wed Apr 26 16:45:09 EDT 2023
|
|
|
|
#18 by Harvey P. Dale at Wed Apr 26 16:45:06 EDT 2023
|
| MATHEMATICA
|
With[{prs=Prime[Range[100]]}, Table[SelectFirst[prs, Mod[#, n]==n-1&], {n, 70}]] (* Harvey P. Dale, Apr 26 2023 *)
|
| STATUS
|
approved
editing
|
|
|
|
#17 by T. D. Noe at Sat May 25 23:22:52 EDT 2013
|
|
|
|
#16 by Robert G. Wilson v at Sat May 25 23:22:29 EDT 2013
|
|
|
|
#15 by Robert G. Wilson v at Sat May 25 23:22:10 EDT 2013
|
| CROSSREFS
|
Cf. A034694.
|
| STATUS
|
approved
editing
|
|
|
|
#14 by Charles R Greathouse IV at Thu Apr 18 11:33:50 EDT 2013
|
|
|
|
#13 by Charles R Greathouse IV at Thu Apr 18 11:33:47 EDT 2013
|
| PROG
|
(PARI) a(n)=my(j); while(!isprime(j++*n-1), ); j*n-1 \\ Charles R Greathouse IV, Apr 18 2013
|
| KEYWORD
|
nonn,changed,easy
|
|
|
|
#12 by Alonso del Arte at Wed Apr 17 23:59:09 EDT 2013
|
| MATHEMATICA
|
f[n_] := Block[{k = n - 1}, While[ !PrimeQ@k, k += n]; k]; Array[f, 63] [From _] (* _Robert G. Wilson v_, Jun 09 2009] *)
|
| STATUS
|
approved
editing
|
|
|
|
#11 by Joerg Arndt at Tue Apr 16 11:42:01 EDT 2013
|
|
|
|
#10 by Joerg Arndt at Tue Apr 16 11:41:48 EDT 2013
|
| LINKS
|
Joerg Arndt, <a href="/A038700/b038700.txt">Table of n, a(n) for n = 1..1000</a>
|
|
|
|