A126622 - OEIS

%I #16 Jan 25 2021 19:06:39

%S 8,15,23,33,41,51,59,70,79,89,100,110,121,130,142,151,163,173,185,193,

%T 203,215,226,238,249,259,269,279,291,305,314,325,335,343,358,367,379,

%U 388,401,412,423,436,446,461,471,482,497,508,517,530,543

%N Simili-primes of order 7.

%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 Mensanator, <a href="/A126622/b126622.txt">Table of n, a(n) for n = 1..150</a>

%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) A126622(n, mode=0/*+1=print, +2=return list*/, N=7, 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