OFFSET
1,2
LINKS
FORMULA
PROG
(PARI)
allocatemem(123456789);
default(primelimit, 4294965247);
uplim = 2^23;
v206074 = vector(uplim); A206074 = n -> v206074[n];
v205783 = vector(uplim); A205783 = n -> v205783[n];
isA206074(n) = polisirreducible(Pol(binary(n)));
v205783[1] = 1; i=0; j=1; n=2; while((n < uplim), if(!(n%65536), print1(n, ", ")); if(isA206074(n), i++; v206074[i] = n, j++; v205783[j] = n); n++); print(n);
A260423(n) = if(1==n, 1, if(isprime(n), A206074(A260423(primepi(n))), A205783(1+A260423(n-primepi(n)-1))));
for(n=1, 10001, write("b260423.txt", n, " ", A260423(n)));
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Antti Karttunen, Jul 25 2015
STATUS
approved