A248862 Primes p such that 900*p^2 is in the sequence A248861.

2, 47, 59, 89, 173, 55439, 561599, 19824479

Offset

1,1

Links

Table of n, a(n) for n=1..8.

Mathematica

lastP=2; lst={2}; While[lastP<200, If[
Mod[EulerPhi[900*NextPrime[lastP]^2]^EulerPhi[900*NextPrime[lastP]^2], DivisorSigma[1, 900*NextPrime[lastP]^2]]==1,
AppendTo[lst, NextPrime[lastP]]]; lastP=NextPrime[lastP]]; lst (* Ivan N. Ianakiev, Dec 15 2014 *)

Crossrefs

Cf. A000040, A248861.

Sequence in context: A141579 A107205 A139839 * A118104 A107211 A069548

Adjacent sequences: A248859 A248860 A248861 * A248863 A248864 A248865

Keyword

nonn,more

Author

Farideh Firoozbakht, Dec 12 2014

Status

approved