OFFSET
1,1
COMMENTS
No more terms below the (10^7)-th prime, i.e., 179424673. - Robert G. Wilson v, Jan 21 2005
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]] == # &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Jan 18 2005
STATUS
approved