|
| |
|
|
A071218
|
|
Largest prime factor of sum of two consecutive primes p(m+1)+p(m) is at most m.
|
|
1
| |
|
|
2, 3, 4, 5, 6, 7, 8, 10, 13, 14, 15, 16, 17, 18, 20, 21, 22, 25, 26, 27, 28, 30, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 52, 53, 55, 56, 57, 59, 60, 61, 62, 64, 65, 66, 68, 69, 70, 72, 73, 74, 78, 79, 80, 81, 82, 83, 85, 88, 89, 90, 91, 92, 94
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| if A071216(n)< or =n, then n is here
|
|
|
EXAMPLE
| m=25, p(25)+p(26)=97+101=198=2.3.3.11 and 11<25, so 25 is here, it is the 18th term; A006530(A001043(x))=x holds rarely, if x=2,3,439; for x=439, p(439)+p(440)=3067+3079=6146=2.7.439=14x.
|
|
|
MATHEMATICA
| pf[x_] := Part[Reverse[Flatten[FactorInteger[x]]], 2] If[ !Greater[s, n], Print[n]], {n, 1, 1000}]
|
|
|
CROSSREFS
| Cf. A006530, A001043, A071216.
Sequence in context: A173925 A061920 A062010 * A017901 A005709 A101917
Adjacent sequences: A071215 A071216 A071217 * A071219 A071220 A071221
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), May 17 2002
|
| |
|
|
