|
%I #20 Apr 09 2023 02:15:46
%S 9,17,26,37,46,57,66,77,88,98,110,122,133,145,157,166,177,191,201,212,
%T 224,237,248,258,273,283,299,309,320,334,345,356,371,381,395,409,419,
%U 430,443,454,466,479,491,505,517,530,542,556,568,582,593
%N Simili-primes of order 8.
%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="/A126623/b126623.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) A126623(n, mode=0/*+1=print, +2=return list*/, N=8, 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
|
