A049301 - OEIS

%I #21 Feb 19 2024 01:55:43

%S 7,9,24,28,57,61,62,69,71,72,77,78,80,83,87,89,95,111,162,170,174,185,

%T 191,218,222,225,229,232,249,255,259,266,267,286,288,298,314,315,322,

%U 328,329,330,332,338,351,352,362,373,376,381,386,387,414,421,435,438

%N Numbers k such that k is a substring of 3^k.

%H Harvey P. Dale, <a href="/A049301/b049301.txt">Table of n, a(n) for n = 1..1000</a>

%t ssQ[n_]:=MemberQ[Partition[IntegerDigits[3^n],IntegerLength[n],1], IntegerDigits[ n]]; Select[Range[500],ssQ] (* _Harvey P. Dale_, Jul 16 2013 *)

%Y Cf. A000244, A032740, A049302, A049303, A049304, A049305, A049306, A049307.

%K nonn,base,easy

%O 1,1

%A _David W. Wilson_