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

zak seidov zakseidov at yahoo.com
Sun Aug 6 04:45:38 CEST 2006

```1. Great, Joseph!

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

```