|
%I #17 Jan 25 2021 19:05:58
%S 5,9,14,21,26,33,39,46,51,59,67,73,79,87,93,101,109,116,123,129,137,
%T 143,152,163,169,178,187,193,203,212,221,227,239,247,253,259,269,278,
%U 284,293,301,311,318,328,334,343,349,359,367,377,383,391,398
%N Simili-primes of order 4.
%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="/A126619/b126619.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) A126619(n, mode=0/*+1=print, +2=return list*/, N=4, 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
|
