OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
n=10: prime(10)=29, max-p-factor(88)=11, pi(11)=5=a(10)<n;
n=11: prime(11)=31, max-p-factor(94)=47, pi(47)=15=a(11)>n;
MATHEMATICA
ffi[x_] := Flatten[FactorInteger[x]]; ma[x_] := Part[Reverse[ffi[x]], 2]; Table[PrimePi[ma[3*Prime[w]+1]], {w, 1, 100}]
PROG
(PARI) a(n) = primepi(vecmax(factor(3*prime(n)+1)[, 1])); \\ Michel Marcus, Mar 27 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Sep 18 2003
STATUS
approved