|
%I #8 Oct 30 2016 13:43:14
%S 1,2,3,4,5,6,7,9,11,13,15,16,17,19,23,25,29,30,31,35,36,37,41,43,47,
%T 49,53,59,61,64,67,71,73,77,79,81,83,89,97,100,101,103,105,107,109,
%U 113,121,127,131,137,139,143,144,149,151,157,163,167,169,173,179,181,191,193,196,197,199,210,211,221,223,225,227,229,233
%N Numbers n for which A248663(n) = A277333(n).
%C After its initial 1-term, A073485 gives those n for which A248663(n) = A277333(n) > 0.
%H Antti Karttunen, <a href="/A277417/b277417.txt">Table of n, a(n) for n = 1..1001</a>
%o (Scheme, with _Antti Karttunen_'s IntSeq-library)
%o (define A277417 (ZERO-POS 1 1 (lambda (n) (- (A277333 n) (A248663 n)))))
%Y Union of A000290 (apart from its initial zero) and A073485.
%Y Cf. A248663, A277333.
%Y Cf. also A260443.
%K nonn
%O 1,2
%A _Antti Karttunen_, Oct 27 2016
|
