A253073 Lexicographically earliest sequence of distinct numbers such that neither a(n) nor a(n-1)+a(n) is prime.
0, 1, 8, 4, 6, 9, 12, 10, 14, 16, 18, 15, 20, 22, 24, 21, 25, 26, 28, 27, 30, 32, 33, 35, 34, 36, 38, 39, 42, 40, 44, 46, 45, 48, 50, 49, 51, 54, 52, 56, 55, 57, 58, 60, 62, 63, 65, 64, 66, 68, 70, 72, 69, 74, 76, 77, 75, 78, 80, 81, 84, 82, 86, 85, 87, 88
Offset: 1
Keywords
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Programs
-
Haskell
a253073 n = a253073_list !! (n-1) a253073_list = 0 : f 0 a018252_list where f u vs = g vs where g (w:ws) | a010051' (u + w) == 1 = g ws | otherwise = w : f w (delete w vs) -- Reinhard Zumkeller, Feb 02 2015
Comments