OFFSET
1,1
COMMENTS
The sequence depends on how the initial terms are selected - see the Angelini article for the precise definition.
LINKS
Eric Angelini, Jeux de suites, in Dossier Pour La Science, pp. 32-35, Volume 59 (Jeux math'), April/June 2008, Paris.
PROG
(PARI) lista(n) = frconspos([4])(n)
frconspos(startseq) = n -> {
my(consonants = Vec("bcdfghjklmnpqrstvwxyz"), charoffset = 0, seqindex = #startseq + 1, seq = Vec(startseq, n));
if(n <= #startseq, seq[1..n], for(i = 1, n, my(thisfrench = Vec(strchr([c|c<-Vecsmall(French(seq[i])), c>96])), consonantindexes = select(x->setsearch(consonants, x), thisfrench, 1));
for(j = 1, #consonantindexes, if(#select(I -> I == consonantindexes[j] + charoffset, startseq) == 0, if(seqindex + j - 1 <= n, seq[seqindex] = consonantindexes[j] + charoffset; seqindex++)));
charoffset += #thisfrench);
seq)}
/* see A167507 for French() */
\\ Tyler Busby, Dec 31 2022
CROSSREFS
KEYWORD
nonn,word,easy
AUTHOR
N. J. A. Sloane (based on Angelini's article), Jun 08 2008
EXTENSIONS
a(12) corrected and more terms from Tyler Busby, Dec 31 2022
STATUS
approved