OFFSET
1,1
MATHEMATICA
s27Q[n_]:=Module[{idn8=IntegerDigits[n, 8]}, If[SequenceCount[idn8, {2, 7}]> 0 ||SequenceCount[idn8, {7, 2}]>0, 1, 0]]; Transpose[ SequencePosition[ Table[ s27Q[n], {n, 1400}], {1, 0}]][[1]] (* The program uses the SequenceCount and SequencePosition functions from Mathematica version 10 *) (* Harvey P. Dale, Oct 10 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved