A033003 -id:A033003 - cp's OEIS frontend

A043309 a(n)=A033003(n)/6.

1, 2, 3, 4, 25, 27, 28, 29, 50, 51, 53, 54, 75, 76, 77, 79, 100, 101, 102, 103, 626, 627, 628, 629, 675, 676, 678, 679, 700, 701, 702, 704, 725, 726, 727, 728, 1251, 1252, 1253, 1254, 1275, 1277, 1278, 1279, 1325, 1326, 1327, 1329

Offset: 1

Clark Kimberling

Also: Numbers which, written in base 25, have all digits less than 5 and no two adjacent digits equal. - M. F. Hasler, Feb 03 2014

Cf. A043307 - A043320, A043291, A033001 - A033014, A033016 - A033029.

is_A043309(n)=(n=[n])&&!until(!n[1],((n=divrem(n[1],25))[2]<5 && n[1]%5!=n[2])||return) \\ M. F. Hasler, Feb 03 2014

A033018 Numbers whose base-5 expansion has no run of digits with length < 2.

Original entry on oeis.org

6, 12, 18, 24, 31, 62, 93, 124, 150, 156, 162, 168, 174, 300, 306, 312, 318, 324, 450, 456, 462, 468, 474, 600, 606, 612, 618, 624, 750, 775, 781, 787, 793, 799, 812, 843, 874, 1500, 1531, 1550, 1556, 1562, 1568, 1574, 1593

Offset: 1

Clark Kimberling

Vincenzo Librandi, Table of n, a(n) for n = 1..1400

Cf. A007091. Supersequence of A033003.

Select[Range[10000],Min[Length/@Split[IntegerDigits[#, 5]]]>1&] (* Vincenzo Librandi, Feb 05 2014 *)

cp's OEIS Frontend

A043309 a(n)=A033003(n)/6.

Views

Author

Keywords

Comments

Crossrefs

Programs

PARI