OFFSET
1,1
COMMENTS
This could be roughly rephrased like this: "Rewrite in the most economical way the prime numbers 'pattern' using only nonprime numbers. Do not use any nonprime twice."
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
Eric Angelini, Jeux de suites, in Dossier Pour La Science, pp. 32-35, Volume 59 (Jeux math'), April/June 2008, Paris.
EXAMPLE
We must begin with 2,3,5,7,11,13,... and we cannot represent "2" with the label "2" or "23", so the next possibility is the label "235" (first available nonprime number in L).
MATHEMATICA
f[lst_List, k_] := Block[{L = lst, g, a = {}, m = 0}, g[] := {Set[m, First@ FromDigits@ Append[IntegerDigits@ m, First@ #]], Set[L, Last@ #]} &@ TakeDrop[L, 1]; Do[g[]; While[Or[PrimeQ@ m, MemberQ[a, m]], g[]]; AppendTo[a, m]; m = 0, {k}]; a]; f[Flatten@ Map[IntegerDigits, Prime@ Range@ 200], 56] (* Michael De Vlieger, Nov 29 2015, Version 10.2 *)
CROSSREFS
KEYWORD
AUTHOR
Eric Angelini, Sep 19 2004; corrected Sep 23 2004
STATUS
approved