Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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