|
| |
|
|
A087273
|
|
Largest prime factor of 3*prime(n)+1.
|
|
2
|
|
|
|
7, 5, 2, 11, 17, 5, 13, 29, 7, 11, 47, 7, 31, 13, 71, 5, 89, 23, 101, 107, 11, 17, 5, 67, 73, 19, 31, 23, 41, 17, 191, 197, 103, 19, 7, 227, 59, 7, 251, 13, 269, 17, 41, 29, 37, 23, 317, 67, 31, 43, 7, 359, 181, 29, 193, 79, 101, 37, 13, 211, 17, 11, 461, 467, 47, 17, 71, 23
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Harvey P. Dale, Table of n, a(n) for n = 1..1000
|
|
|
FORMULA
|
a(n)=A006530[1+3.A000040[n]]
|
|
|
EXAMPLE
|
n=100:p[100]=541,m=3.541+1=1624=2.2.2.7.29 so a(100)=29.
|
|
|
MATHEMATICA
|
ffi[x_] := Flatten[FactorInteger[x]] ma[x_] := Part[Reverse[ffi[x]], 2] Table[ma[3*Prime[w]+1], {w, 1, 100}]
Table[FactorInteger[3Prime[n]+1][[-1, 1]], {n, 70}] (* From Harvey P. Dale, Apr 10 2012 *)
|
|
|
CROSSREFS
|
Cf. A006530.
Sequence in context: A112545 A021934 A021097 * A199794 A106040 A085927
Adjacent sequences: A087270 A087271 A087272 * A087274 A087275 A087276
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Sep 18 2003
|
|
|
STATUS
|
approved
|
| |
|
|
