This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A037430 #22 Apr 23 2021 22:20:50 %S A037430 1,2,3,4,17,51,66,102,416,423,557,687,697,739,785,842,889,1030,1078, %T A037430 1087,1109,1233,1374,1439,1444,1477,1481,1492,1499,1570,2527,2566, %U A037430 2576,2580,2601,2605,2611,2625,2626,2627,2628,2629,2811,2871,2916 %N A037430 Positive numbers having the same set of digits in base 5 and base 7. %H A037430 John Cerkan, <a href="/A037430/b037430.txt">Table of n, a(n) for n = 1..10000</a> %e A037430 423 is in the sequence because 423 in base 5 is 3413 and in base 7 it is 1143. %p A037430 a:=proc(n) if convert(convert(n,base,5),set)=convert(convert(n,base,7),set) then n else fi end: seq(a(n),n=1..3000); # _Emeric Deutsch_, Apr 30 2006 %t A037430 Select[Range[3000],Union[IntegerDigits[#,5]]==Union[IntegerDigits[#,7]]&] (* _Harvey P. Dale_, Mar 06 2012 *) %o A037430 (PARI) is(n)=Set(digits(n, 5))==Set(digits(n, 7)) \\ _Charles R Greathouse IV_, Feb 11 2017 %Y A037430 Subsequence of A037394. %K A037430 nonn,base %O A037430 1,2 %A A037430 _Clark Kimberling_ %E A037430 More terms from _Don Reble_, Apr 28 2006 %E A037430 Name edited by _John Cerkan_, Feb 09 2017