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 A100417 #7 Jan 21 2014 12:30:20 %S A100417 1,2,4,6,8,9,10,12,14,16,18,20,22,24,26,27,28,30,32,34,36,38,40,42,44, %T A100417 45,46,48,52,54,56,58,60,62,63,64,66,68,70,72,74,76,78,80,81,82,84,86, %U A100417 88,90,92,94,96,99,100,102,104,106,108,110,112,114,116,117,118,120,122,124,126 %N A100417 Numbers n such that P(n) = P(B(n)), where P() = A100549() and B() = A100762. %p A100417 # First load the Maple programs from A100549 and A100762 %p A100417 # Bgood = (is pp(n) = pp(B(n))), that is, is B(n) enough to establish pp(n)? %p A100417 Bgood := proc(n) global pp; %p A100417 `if`(pp(B(n))=pp(n),true,false); %p A100417 end proc; %p A100417 select(Bgood, [$1..200]); %Y A100417 Cf. A100549, A100762. %K A100417 nonn %O A100417 1,2 %A A100417 _David Applegate_ and _N. J. A. Sloane_, Sep 15 2008