Puzzle sequence: 1,3,4,6,8,9,10,11,12,14,15,16,17,18,20

[zak seidov]

1. Great, Joseph!
  Your code is well over my head :-( 

2. My code's shorter:
s={1};Do[If[!PrimeQ[n]||(PrimeQ[n]&&FreeQ[s,PrimePi[n]]),AppendTo[s,n]],{n,2,100}];s

3. Agree that some of them are "less worthy..." ;)

4. thanks, Zak

--- Joseph Biberstine <jrbibers at indiana.edu> wrote:

> Enumerated by the following sequential Mathematica
> code (note "%" is the
> output of the last executed statement):
> 
> Table[Prime[Prime[Floor[GoldenRatio*n]]], {n, 1,
> 20}];
> Select[Prime[Range[PrimePi[Last[%]]]], !MemberQ[%,
> #] &];
> Select[Range[Last[%]], !MemberQ[%, #] &]
> 
> That is, where a is the mystery seq, A27 is the
> naturals, A40 is the
> primes, A201 is the Lower Wythoff seq, and "-" is
> set subtraction:
> 
> a = A27 - (A40 - A40(A40(A201)))
> 
> I've certainly seen less worthy entries in OEIS :)
> 
> - JRB
> 
> zak seidov wrote:
> > Puzzle sequence:
> > 
> >
>
1,3,4,6,8,9,10,11,12,14,15,16,17,18,20,21,22,24,25,26,27,28,30,32,33,34,35,36,38,39,40,41,42,44,45,46,48,49,50,51,52,54,55,56,57,58,60,62,63,64,65,66,67,68,69,70,72,74,75,76,77,78,80,81,82,83,84,85,86,87,88,90,91,92,93,94,95,96,98,99,100,...
> > 
> > Hint: 
> > !dettimo era semirp emos
> > 
> > If no objections, 
> > I'll submit it (with definition),
> > thanks, Zak


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com