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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A043900 Numbers n such that 0 and 5 occur juxtaposed in the base 6 representation of n but not of n+1. 0
30, 41, 66, 77, 102, 113, 138, 149, 174, 185, 210, 221, 251, 257, 282, 293, 318, 329, 354, 365, 390, 401, 426, 437, 467, 473, 498, 509, 534, 545, 570, 581, 606, 617, 642, 653, 683, 689, 714, 725, 750, 761, 786, 797, 822, 833 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..46.

EXAMPLE

30(10) = 50(6) but 31(10) = 51(6), so 30 is in the sequence.

MATHEMATICA

Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 6], {0, 5}]>0||SequenceCount[IntegerDigits[n, 6], {5, 0}]>0, 1, 0], {n, 1000}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Jan 14 2016 *)

PROG

(Sage)

[x for x in [1..2000] if ('50' in join([str(y) for y in x.digits(base=6)], '') or '05' in join([str(y) for y in x.digits(base=6)], '')) and not('50' in join([str(y) for y in (x+1).digits(base=6)], '')) and not('05' in join([str(y) for y in (x+1).digits(base=6)], ''))] # Tom Edgar, May 13 2014

CROSSREFS

Sequence in context: A225049 A043120 A039297 * A103098 A110849 A074696

Adjacent sequences:  A043897 A043898 A043899 * A043901 A043902 A043903

KEYWORD

nonn,base

AUTHOR

Clark Kimberling, Dec 11 1999

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 25 12:01 EST 2020. Contains 332233 sequences. (Running on oeis4.)