A138167 -id:A138167 - cp's OEIS frontend

A138166 Numbers containing their length in their decimal representation.

1, 12, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 32, 42, 52, 62, 72, 82, 92, 103, 113, 123, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 143, 153, 163, 173, 183, 193, 203, 213, 223, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 243, 253, 263, 273, 283

Offset: 1

Reinhard Zumkeller, Mar 03 2008

R. Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A055642, A138167, A138168.
Cf. A038528 (subsequence).
Cf. A052018, A119246.

import Data.List (isInfixOf)
a138166 n = a138166_list !! (n-1)
a138166_list = filter (\x -> show (a055642 x) `isInfixOf` show x) [0..]
-- Reinhard Zumkeller, Jul 04 2012

A138168 Numbers containing their length in binary representation.

Original entry on oeis.org

1, 2, 6, 7, 8, 9, 12, 20, 21, 22, 23, 26, 27, 29, 38, 44, 45, 46, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 71, 78, 79, 87, 92, 93, 94, 95, 103, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130

Offset: 1

Reinhard Zumkeller, Mar 03 2008

			20 ->'10100', length = 5 ->'101', therefore 20 is a term;
200 ->'11001000', length = 8 ->'1000', therefore 200 is a term.

R. Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A070939, A138166, A138167.

lbrQ[n_]:=Module[{idn2=IntegerDigits[n,2]},SequenceCount[idn2, IntegerDigits[ Length[ idn2],2]]>0]; Select[Range[200],lbrQ] (* The program uses the SequenceCount function from Mathematica version 10 *) (* Harvey P. Dale, Oct 07 2015 *)

cp's OEIS Frontend

A138166 Numbers containing their length in their decimal representation.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell