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