login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Base 10 integers n such that n base 16 is a substring of n base 7.
0

%I #6 Nov 21 2013 12:49:41

%S 1,2,3,4,5,6,1266212,1315153,54936934,54937154,54937155,84956246,

%T 84956257,84956467,84956677

%N Base 10 integers n such that n base 16 is a substring of n base 7.

%e a(7)=1266212 because 1266212 base 10 = 135224 base 16 = 13522403 base 7, and the string 135224 appears in 135522403.

%t okQ[n_]:=Module[{idn16=IntegerDigits[n,16],idn7=IntegerDigits[n,7]},MemberQ[Partition[ idn7, Length[idn16],1], idn16]]; Select[ Range[85000000], okQ] (* _Harvey P. Dale_, Apr 29 2011 *)

%K base,easy,nonn

%O 1,2

%A _Gil Broussard_, Aug 22 2009