The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A043221 Numbers n such that 0 and 6 occur juxtaposed in the base 10 representation of n but not of n-1. 1
 60, 106, 160, 206, 260, 306, 360, 406, 460, 506, 560, 600, 660, 706, 760, 806, 860, 906, 960, 1006, 1060, 1106, 1160, 1206, 1260, 1306, 1360, 1406, 1460, 1506, 1560, 1600, 1660, 1706, 1760, 1806, 1860, 1906, 1960, 2006, 2060 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Robert Israel, Table of n, a(n) for n = 1..10000 EXAMPLE 600 is in the sequence because its base 10 representation includes the digits 0 and 6, but 599 includes neither. 606 is not in the sequence, because, even though its base 10 representation does include the digits 0 and 6, so does 605. MAPLE filter:= proc(n)   local L, P;   L:= convert(n-1, base, 10);   if member({0, 6}, {seq({L[i], L[i+1]}, i=1..nops(L)-1)}) then return false fi;   L:= convert(n, base, 10);   member({0, 6}, {seq({L[i], L[i+1]}, i=1..nops(L)-1)}); end proc: select(filter, [\$1..10^4]); # Robert Israel, Nov 18 2014 MATHEMATICA Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {0, 6}]>0||SequenceCount[IntegerDigits[n], {6, 0}]>0, 1, 0], {n, 2200}], {0, 1}]][[2]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Aug 01 2016 *) CROSSREFS Sequence in context: A048934 A097714 A272515 * A039398 A044001 A258700 Adjacent sequences:  A043218 A043219 A043220 * A043222 A043223 A043224 KEYWORD nonn,base AUTHOR STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 20 19:22 EST 2021. Contains 340332 sequences. (Running on oeis4.)