|
|
A242270
|
|
Numbers k such that k*7^k+1 is semiprime.
|
|
1
|
|
|
6, 8, 10, 14, 15, 60, 90, 114, 118, 204, 350, 390
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The semiprimes of this form are: 705895, 46118409, 2824752491, 9495123019887, 71213422649146, ...
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[80], PrimeOmega[# 7^# + 1] == 2 &]
|
|
PROG
|
(Magma) IsSemiprime:=func<i | &+[d[2]: d in Factorization(i)] eq 2>; [n: n in [1..80] | IsSemiprime(s) where s is n*7^n+1];
(PARI) is(k) = bigomega(k*7^k+1)==2;
for(k=0, 120, if(k%4!=1, if(is(k), print1(k, ", ")))); \\ Jinyuan Wang, Apr 07 2019
|
|
CROSSREFS
|
Cf. similar sequences listed in A242203.
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|