|
|
A055813
|
|
Primes arising in A064205.
|
|
9
|
|
|
2, 5, 19, 263, 373, 1033, 65551, 123833, 283553, 292993, 2197633, 5778673, 12795193, 10500613, 19980283, 32213033, 36978853, 72494813, 140724953, 164119063, 183105509, 193710277, 320210941, 450065801, 268354393, 496922891, 506906473, 1333406021
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
Select[Table[Total@ Map[DivisorSigma[#, n] &, {0, 1}], {n, 10^7}], PrimeQ] (* Michael De Vlieger, Dec 17 2016 *)
|
|
PROG
|
(PARI) lista(nn) = for (n=1, nn, if (isprime(p=sigma(n) + numdiv(n)), print1(p, ", "))); \\ Michel Marcus, Dec 18 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|