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

[Joseph Biberstine]

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