A126621 - OEIS

%I #20 Apr 09 2023 02:15:46

%S 7,13,20,29,36,45,53,62,71,81,89,97,109,118,128,137,149,157,167,177,

%T 187,197,205,215,228,239,250,258,271,279,292,303,311,326,335,345,358,

%U 366,375,386,397,408,418,428,443,453,463,474,488,502,510,521

%N Simili-primes of order 6.

%C Invented by _Hugo van der Sanden_ and _Eric Angelini_, computed by Mensanator.

%D J.-P. Delahaye, La suite du lézard et autres inventions, Pour la Science, No. 353, 2007.

%H Alois P. Heinz, <a href="/A126621/b126621.txt">Table of n, a(n) for n = 1..10000</a> (first 150 terms from a correspondent using the pseudonym "Mensanator")

%H Eric Angelini, <a href="http://www.cetteadressecomportecinquantesignes.com/ThousandZetas.htm">Thousand Zetas</a>

%H Eric Angelini, <a href="/A123929/a123929.html">Thousand Zetas</a> [Cached copy, with permission]

%o (PARI) A126621(n, mode=0/*+1=print, +2=return list*/, N=6, P=List(N+1))={ while(n--, my(k=P[#P]); bittest(mode, 0)&&print1(k", "); for(i=1, N, while(k++, for(j=1, #P, k%P[j]||next(2)); break)); listput(P, k)); if(bittest(mode, 1), Vec(P), P[#P])} \\ _M. F. Hasler_, Dec 24 2013

%Y See A123929 and A126618 for further details.

%K nonn

%O 1,1

%A _N. J. A. Sloane_, Feb 09 2007