OFFSET
1,1
FORMULA
If A071216(k) <= k, then k is in this sequence.
EXAMPLE
k=25: prime(25) + prime(26) = 97 + 101 = 198 = 2*3*3*11 and 11 < 25, so 25 is in this sequence;
MATHEMATICA
Select[Range[94], FactorInteger[Prime[#] + Prime[# + 1]][[-1, 1]] <= # &] (* Giovanni Resta, Jul 13 2018 *)
PROG
(PARI) isok(n) = vecmax(factor(prime(n)+prime(n+1))[, 1]) <= n; \\ Michel Marcus, Jul 09 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 17 2002
EXTENSIONS
Edited by Jon E. Schoenfield, Jul 08 2018
STATUS
approved