|
|
|
|
#7 by Joerg Arndt at Fri Mar 13 05:01:06 EDT 2015
|
|
|
|
#6 by Michel Marcus at Fri Mar 13 00:57:10 EDT 2015
|
|
|
|
#5 by Jon E. Schoenfield at Thu Mar 12 22:56:06 EDT 2015
|
|
|
|
#4 by Jon E. Schoenfield at Thu Mar 12 22:55:59 EDT 2015
|
| COMMENTS
|
No more terms below the (10^7)-th prime, i.e., 179424673. - Robert G. Wilson v, Jan 21 2005
|
| EXTENSIONS
|
No more terms below the 10^7-th prime or 179424673. - Robert G. Wilson v Jan 21 2005.
|
| STATUS
|
approved
editing
|
|
|
|
#3 by N. J. A. Sloane at Tue Feb 11 19:05:42 EST 2014
|
| AUTHOR
|
_Joseph L. Pe (joseph_l_pe(AT)hotmail.com), _, Jan 18 2005
|
|
|
Discussion
|
Tue Feb 11
| 19:05
| OEIS Server: https://oeis.org/edit/global/2119
|
|
|
|
#2 by N. J. A. Sloane at Fri Feb 24 03:00:00 EST 2006
|
| MATHEMATICA
|
Select[ Prime[ Range[ 10^7]], Transpose[ FactorInteger[ Prime[ # ] + 1]][[1, -, -1]] == # &]
|
| KEYWORD
|
nonn,new
nonn
|
|
|
|
#1 by N. J. A. Sloane at Sun Feb 20 03:00:00 EST 2005
|
| NAME
|
Numbers n such that n is the largest prime factor of 1 + prime(n).
|
| DATA
|
2, 3, 40087, 251737
|
| OFFSET
|
1,1
|
| EXAMPLE
|
3 = the largest factor of 1 + prime(3) = 6, so 3 belongs to the sequence.
|
| MATHEMATICA
|
Select[ Prime[ Range[ 10^7]], Transpose[ FactorInteger[ Prime[ # ] + 1]][[1, -1]] == # &]
|
| KEYWORD
|
nonn
|
| AUTHOR
|
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Jan 18 2005
|
| EXTENSIONS
|
No more terms below the 10^7-th prime or 179424673. - Robert G. Wilson v Jan 21 2005.
|
| STATUS
|
approved
|
|
|
|