A075575 Duplicate of A073655.
1, 6, 55, 28, 3, 10, 21, 136, 15, 406, 171, 820, 91, 36, 595, 66, 703, 120, 253, 78, 1225
Offset: 1
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
mx = 100; free = Range[2, mx]^2; t = {1}; While[i = 1; While[i <= Length[free] && ! PrimeQ[t[[-1]] + free[[i]]], i++]; i <= Length[free], AppendTo[t, free[[i]]]; free = Delete[free, i]]; t (* T. D. Noe, Dec 18 2012 *)
l = {1, 1}; Do[k = 1; While[MemberQ[l, Fibonacci[k]] || !PrimeQ[Last[l] + Fibonacci[k]], k++ ]; AppendTo[l, Fibonacci[k]]; Print[l], {n, 9}] (* Ryan Propper, Jun 16 2006 *)
Comments