login
A338073
Rearrangement of positive integers except 3 defined by A083758.
3
1, 2, 5, 4, 13, 11, 7, 38, 9, 22, 45, 53, 10, 12, 17, 44, 49, 50, 52, 85, 158, 68, 55, 229, 97, 8, 62, 269, 256, 159, 41, 73, 54, 179, 581, 210, 98, 297, 86, 34, 43, 273, 199, 122, 16, 153, 140, 29, 709, 521, 64, 163, 87, 389, 1145, 106, 164, 231, 26, 177, 28, 464, 51, 258, 398, 391
OFFSET
1,2
COMMENTS
This is conjectured to be a permutation of all positive integers except 3.
Apply PrimePi (A000720) to the terms of A083758.
PROG
(PARI) a338073(m)={my(np=1000*m, pused=vectorsmall(np), digp=[]); for(n=1, m, my(found=0); for(k=1, np, if(!pused[k], my(add=digits(prime(k)), pc=concat(digp, add)); if(ispseudoprime(fromdigits(pc)), print1(k, ", "); digp=pc; pused[k]=1; found=1; break))); if(!found, break))};
a338073(66) \\ Hugo Pfoertner, Oct 21 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 20 2020
STATUS
approved