OFFSET
1,1
COMMENTS
LINKS
M. F. Hasler, Table of n, a(n) for n = 1..10000
MATHEMATICA
SequencePosition[Table[If[PrimeNu[n]>3, 1, 0], {n, 25000}], {1, 1}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 29 2019 *)
PROG
(PARI) is(n)=omega(n)>=4&&omega(n+1)>=4
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Nov 12 2018
STATUS
approved