This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A344283 #4 May 24 2021 00:58:17 %S A344283 3,3,307,307,11,3,23,3,3,467,3,467,467,37,2,5,31,3,127,127,127,127, %T A344283 127,1667,73,19,19,19,19,19,31,31,19,31,19,19,31,31,31,31,31,31,19,31, %U A344283 3,3,31,31,3,3,3,3,19,19,31,31,73,73,3,3,3,3,3,3,3,19,19,31 %N A344283 Column 2 of A317721. %o A344283 (PARI) addtovec(vec) = my(w=[], vmax=0); for(t=1, #vec, if(vecmax(vec[t]) > vmax, vmax=vecmax(vec[t]))); for(k=1, #vec, forprime(q=1, vmax, if(Mod(vec[k][#vec[k]], q^2)^(q-1)==1, w=concat(w, [0]); w[#w]=concat(vec[k], [q])))); w %o A344283 removefromvec(vec) = my(w=[]); for(k=1, #vec, if(vecsort(vec[k])==vecsort(vec[k], , 8), w=concat(w, [0]); w[#w]=vec[k])); w %o A344283 printfromvec(vec) = for(k=1, #vec, if(vec[k][1]==vec[k][#vec[k]], print1(vec[k][2], ", "))) %o A344283 forprime(p=1, , my(v=[[p]]); while(#v > 0, v=addtovec(v); printfromvec(v); v=removefromvec(v))) %Y A344283 Cf. A317721, A344282 (column 1). %K A344283 nonn %O A344283 1,1 %A A344283 _Felix Fröhlich_, May 14 2021