OFFSET
1,2
COMMENTS
LINKS
FORMULA
PROG
(PARI)
allocatemem(123456789);
default(primelimit, 4294965247);
uplim = 2^20;
v255574 = vector(uplim); A255574 = n -> v255574[n];
A257000(n) = polisirreducible(Pol(binary(n)));
v255574[1] = 0; i=0; j=0; n=2; while((n < uplim), v255574[n] = v255574[n-1]+A257000(n); n++);
A002808(n)={ my(k=-1); while( -n + n += -k + k=primepi(n), ); n}; \\ This function from M. F. Hasler
for(n=1, 8192, write("b260424.txt", n, " ", A260424(n)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 25 2015
STATUS
approved