OFFSET
1,1
MATHEMATICA
n45Q[n_]:=Module[{idn6=IntegerDigits[n, 6]}, SequenceCount[idn6, {4, 5}]>0 || SequenceCount[idn6, {5, 4}]>0]; Transpose[SequencePosition[Table[ If[ n45Q[k], 1, 0], {k, 1000}], {0, 1}]][[2]] (* The program uses the SequenceCount and SequencePosition functions from Mathematica version 10 *) (* Harvey P. Dale, Aug 09 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved