OFFSET
1,2
EXAMPLE
a(7)=1266212 because 1266212 base 10 = 135224 base 16 = 13522403 base 7, and the string 135224 appears in 135522403.
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Gil Broussard, Aug 22 2009
STATUS
approved