|
|
A173980
|
|
a(n) is the smallest term m in A173978 for which A020639(2m-3) = prime(n), n > 1.
|
|
2
|
|
|
6, 19, 40, 106, 112, 265, 220, 427, 625, 730, 871, 1252, 1141, 1717, 2095, 2332, 2716, 2380, 3445, 6097, 4465, 4027, 6187, 6646, 6415, 7675, 6796, 7141, 15991, 8701, 9106, 12400, 12025, 11251, 12610, 14995, 14101, 16117, 16696, 16201, 21631, 19006, 22486, 21967
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
LINKS
|
|
|
MATHEMATICA
|
m = 50; v = Table[0, {m}]; lpf[n_] := FactorInteger[n][[1, 1]]; aQ[n_] := (! PrimeQ[2 n - 3] || ! PrimeQ[2 n - 1]) && lpf[2 n - 3] < lpf[2 n - 1]; c = 0; n = 1; While[c < m - 1, If[aQ[n], s = PrimePi[lpf[2 n - 3]]; If[s > 1 && s <= m && v[[s]] == 0, v[[s]] = n; c++]]; n++]; Rest[v] (* Amiram Eldar, Sep 12 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|