|
%I #18 Apr 09 2023 02:15:46
%S 4,7,11,17,23,27,31,39,45,53,59,67,74,82,87,95,103,111,122,127,131,
%T 141,146,151,163,169,178,183,193,199,211,215,223,229,237,247,251,263,
%U 271,278,290,298,307,314,325,334,342,349,358,362,369,377,383
%N Simili-primes of order 3.
%C Definition of simili-primes of order k: Start with the natural numbers 2,3,4,5,... Define an atom to be the k-th integer which cannot be divided by another atom. The first atom is k+1. Repeat. Order 1 gives the primes A000040, order 2 gives A123929. Orders 4,5,... give A126619, A126620, A126621, ...
%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="/A126618/b126618.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) A126618(n,mode=0/*+1=print,+2=return list*/,N=3,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 for further details.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Feb 09 2007
|
