Fwd: COMMENT FROM M. F. Hasler RE A007918
Maximilian Hasler
maximilian.hasler at gmail.com
Wed Apr 9 16:53:23 CEST 2008
ooops - inverse logic. below the correct maple code, (I hope...)
---------- corrected message ----------
%I A007918
%S A007918 2,2,2,3,5,5,7,7,11,11,11,11,13,13,17,17,17,17,19,19,23,23
%N A007918 Least prime >= n (version 1 of the "next prime" function).
%p A007918 A007918 := n-> nextprime(n-1);
%K A007918 nonn,easy,nice
%O A007918 0
%A A007918 M. F. Hasler (www.univ-ag.fr/~mhasler), Apr 09 2008
jp> From seqfan-owner at ext.jussieu.fr Tue Apr 8 20:23:31 2008
jp> Date: Tue, 8 Apr 2008 11:22:36 -0700
jp> From: "Jonathan Post" <jvospost3 at gmail.com>
jp> To: "Sequence Fans" <seqfan at ext.jussieu.fr>
jp> Subject: Re: greedy computation of pseudoperfect numbers?
jp>
jp> I thought that I'd long ago submitted "a(n) = least semiprime such
jp> that all subsets of {a(1),...,a(n)} have a different sum", under a
jp> slightly different name. Yet after several minutes, I can't find that
jp> in OEIS.
That sequence would start 4, 6, 9, 14, 22, 57, 111, 218, 445, 879, 1754,...
if I'm not mistaken.
isA001358 := proc(n)
end:
end:
a := [4] :
while true do
od:
More information about the SeqFan
mailing list