%I #21 Feb 25 2018 03:52:13
%S 1,5,6,7,9,12,16,17,18,20,21,23,27,28,29,31,34,38,39,40,42,45,49,50,
%T 51,53,56,60,61,62,64,65,67,71,72,73,75,76,78,82,83,84,86,87,89,93,94,
%U 95,97,100,104,105,106,108,109,111,115,116,117,119,122,126,127
%N Numbers of the form (11*h+j)*11^k-1 for h,k in N and j in {2,6,7,8,10}.
%C Created in a failed attempt to explain sequences J and K on page 10 of Fu and Han (2016). See A279194 and A279195. - _N. J. A. Sloane_, Dec 15 2016
%H Hao Fu, G.-N. Han, <a href="https://arxiv.org/abs/1601.04370">Computer assisted proof for Apwenian sequences related to Hankel determinants</a>, arXiv preprint arXiv:1601.04370 [math.NT], 2016.
%p isA279001 := proc(n)
%p not isA279000(n) ;
%p end proc:
%p for n from 0 to 200 do
%p if isA279001(n) then
%p printf("%d,",n) ;
%p end if;
%p end do: # _R. J. Mathar_, Dec 15 2016
%t okQ[n_] := Not @ MatchQ[IntegerDigits[n+1, 11], {___, 1|3|4|5|9, 0...}];
%t Select[Range[200], okQ] (* _Jean-François Alcover_, Feb 25 2018, after _R. J. Mathar_ *)
%Y Complement of A279000.
%Y Cf. A279194, A279195.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Dec 07 2016
%E Corrected by _Lars Blomberg_ (base 5 replaced by base 11. 10 removed, 21 added,...), Dec 15 2016