|
%I #17 Apr 04 2021 01:03:50
%S 16,39,55,58,74,83,86,87,107,108,111,112,113,122,123,124,125,126,127,
%T 128,147,148,165,179,180,181,201,202,205,206,207,219,223,224,225,226,
%U 242,243,244,245,246,247,251,257,260,264,265,266,267,268,269,270,274,277,278,279,280
%N Numbers k such that both distances from A002182(k-1) to A002182(k) and from A002182(k) to A002182(k+1) are not terms of A002182 (highly composite numbers).
%e 16 is a term, since A002182(16) - A002182(15) = 420 and A002182(17) - A002182(16) = 420 are not terms of A002182. 17 is not a term, since A002182(17) - A002182(16) = 420 is not a term of A002182, but A002182(18) - A002182(17) = 2520 is.
%t hcn=Cases[Import["https://oeis.org/A002182/b002182.txt","Table"],{_,_}][[All,2]]; a={};
%t Table[If[FreeQ[hcn,hcn[[i]]-hcn[[i-1]]]&&FreeQ[hcn,hcn[[i+1]]-hcn[[i]]],
%t AppendTo[a,i]],{i,2,Length[hcn]-1}];Take[a,100]
%Y Cf. A002182.
%K nonn
%O 1,1
%A _Ivan N. Ianakiev_, Apr 02 2021
|
