A067829 Primes p such that sigma(p-2) < p.
3, 5, 7, 13, 19, 31, 43, 61, 73, 103, 109, 139, 151, 181, 193, 199, 229, 241, 271, 283, 313, 349, 421, 433, 463, 523, 571, 601, 619, 643, 661, 811, 823, 829, 859, 883, 1021, 1033, 1051, 1063, 1093, 1153, 1231, 1279, 1291, 1303, 1321, 1429, 1453, 1483, 1489
Offset: 1
Keywords
Links
- Robert Price, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Prime@ Range@ 240, DivisorSigma[1, # - 2] < # &] (* Michael De Vlieger, Jun 12 2015 *)
-
PARI
lista(nn) = forprime(p=3, nn, if (sigma(p-2) < p, print1(p, ", "));); \\ Michel Marcus, Jun 06 2015
Comments