A344282 Column 1 of A317721.

71, 359, 359, 359, 487, 487, 863, 863, 863, 863, 863, 863, 863, 1069, 1093, 1093, 1483, 1549, 1549, 1549, 1549, 1549, 1549, 2281, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511, 3511

Offset

1,1

Comments

A297846 with each term repeated A317919(n) times.

Links

Table of n, a(n) for n=1..46.

Prog

(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
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
printfromvec(vec) = for(k=1, #vec, if(vec[k][1]==vec[k][#vec[k]], print1(vec[k][1], ", ")))
forprime(p=1, , my(v=[[p]]); while(#v > 0, v=addtovec(v); printfromvec(v); v=removefromvec(v)))

Crossrefs

Cf. A297846, A317721, A317919, A344283 (column 2).

Sequence in context: A343913 A142375 A215470 * A297846 A142304 A201313

Adjacent sequences: A344279 A344280 A344281 * A344283 A344284 A344285

Keyword

nonn

Author

Felix Fröhlich, May 14 2021

Status

approved