%I
%S 6,11,14,22,23,27,30,38,43,46,47,54,55,59,62,70,75,78,86,87,91,94,95,
%T 102,107,110,111,118,119,123,126,134,139,142,150,151,155,158,166,171,
%U 174,175,182,183,187,190,191,198,203,206,214,215,219,222,223,230
%N Numbers n such that both n and n+1 have odd part of form 4k+3.
%H Harvey P. Dale, <a href="/A106837/b106837.txt">Table of n, a(n) for n = 1..1000</a>
%e 30/2=15 is 3 mod 4 and so is 31, therefore 30 is in sequence.
%t SequencePosition[Table[If[EvenQ[n],Mod[n/2^IntegerExponent[n,2],4], Mod[ n,4]],{n,250}],{3,3}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 20 2016 *)
%Y Cf. A091067, A106838, A106840.
%Y Contains A106838 and A106838+1.
%K nonn
%O 1,1
%A _Ralf Stephan_, May 03 2005
