OFFSET
1,1
EXAMPLE
MATHEMATICA
hcn=Cases[Import["https://oeis.org/A002182/b002182.txt", "Table"], {_, _}][[All, 2]]; a={};
Table[If[FreeQ[hcn, hcn[[i]]-hcn[[i-1]]]&&FreeQ[hcn, hcn[[i+1]]-hcn[[i]]],
AppendTo[a, i]], {i, 2, Length[hcn]-1}]; Take[a, 100]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ivan N. Ianakiev, Apr 02 2021
STATUS
approved