OFFSET
1,2
COMMENTS
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
LINKS
Hao Fu, G.-N. Han, Computer assisted proof for Apwenian sequences related to Hankel determinants, arXiv preprint arXiv:1601.04370 [math.NT], 2016.
MAPLE
isA279001 := proc(n)
not isA279000(n) ;
end proc:
for n from 0 to 200 do
if isA279001(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, Dec 15 2016
MATHEMATICA
okQ[n_] := Not @ MatchQ[IntegerDigits[n+1, 11], {___, 1|3|4|5|9, 0...}];
Select[Range[200], okQ] (* Jean-François Alcover, Feb 25 2018, after R. J. Mathar *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 07 2016
EXTENSIONS
Corrected by Lars Blomberg (base 5 replaced by base 11. 10 removed, 21 added,...), Dec 15 2016
STATUS
approved