This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A320517 Prime k with sigma(sigma(sigma(k))) < 3*k + 1. 0
 3, 97, 241, 337, 577, 1249, 3361, 3697, 4801, 6961, 8191, 10657, 14449, 16561, 18049, 23761, 25537, 31249, 32257, 37537, 48049, 49297, 64081, 65521, 77617, 79201, 89041, 120049, 126001, 138337, 140449, 153457, 171697, 174049, 181201, 193441, 208657, 216481 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS MAPLE isA320517 := n -> isprime(n) and (sigma(sigma(sigma(n))) < 3*n + 1): S := select(isA320517, [\$1..300000]); MATHEMATICA Select[Range[250000], PrimeQ[#] && DivisorSigma[1, DivisorSigma[1, DivisorSigma[1, #]]] < 3*# + 1 &] (* Vaclav Kotesovec, Oct 14 2018 *) PROG (PARI) isok(n) = isprime(n) && (sigma(sigma(sigma(n))) < 3*n + 1); \\ Michel Marcus, Oct 14 2018 CROSSREFS Cf. A000203, A320513. Sequence in context: A100494 A209554 A320513 * A243155 A201843 A278202 Adjacent sequences:  A320514 A320515 A320516 * A320518 A320519 A320520 KEYWORD nonn AUTHOR Peter Luschny, Oct 14 2018 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 20 16:15 EDT 2019. Contains 325185 sequences. (Running on oeis4.)