login
A354026
Primes that divide some k dividing 4^k + 3^k (A045584).
1
7, 379, 14407, 689431, 4235659, 41647747, 137534083, 239900179, 242121643, 349909477, 1245283747, 1478065891, 1605314383, 2500276549, 2748751303, 5618210347, 7490947129
OFFSET
1,1
COMMENTS
Prime p > 3 is in this sequence iff all prime factors of the multiplicative order of -3/4 modulo p belong to this sequence.
PROG
(PARI) forprime(p=5, oo, f=Set(factor(znorder(Mod(-3/4, p)))[, 1]); if(#setintersect(S, f)==#f, S=setunion(S, [p]); print1(p, ", ")) );
KEYWORD
nonn,more
AUTHOR
Max Alekseyev, May 15 2022
STATUS
approved