login
Numbers of the form (11*h+j)*11^k-1 for h,k in N and j in {2,6,7,8,10}.
3

%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