|
Search: id:A100386
|
|
| |
|
| 586951, 1473257, 4982941, 13565441, 24954141, 25384714, 26576686, 32026196, 35797623, 35953989, 37972276, 39048260, 51755761, 58769257, 60682681, 71342703, 77863117, 80826231, 84766857, 89768134, 98363506, 110482826
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
A006530(n) is the largest prime factor of n.
|
|
EXAMPLE
|
586951 is here because the largest prime factors of 586951..586960 are 586951,73369,21739,9467,1319,1193,1181,1091,677,29.
|
|
MAPLE
|
<<NumberTheory`NumberTheoryFunctions` {ta={{0}}, tm=TimeUsed[]}; mxp[x_] :=Max[PrimeFactorList[x]] Do[g=n; s1=mxp[n]; s2=mxp[n+1]; s3=mxp[n+2]; s4=mxp[n+3]; s5=mxp[n+4]; s6=mxp[n+5]; s7=mxp[n+6]; s8=mxp[n+7]; s9=mxp[n+8]; s10=mxp[n+9]; If[ !Greater[s2, s1]&&!Greater[s3, s2]&&!Greater[s4, s3]&& !Greater[s5, s4]&&!Greater[s6, s5]&&!Greater[s7, s6]&& !Greater[s8, s7]&&!Greater[s9, s8]&&!Greater[s10, s9], Print[{n, {s1, s2, s3, s4, s5, s6, s7, s8, s9, s10}}]; ta=Append[ta, n]], {n, 586950, 21977000}]; ta
|
|
CROSSREFS
|
Cf. A006530, A070087, A071870, A100385.
Sequence in context: A119402 A050518 A104962 this_sequence A090871 A151435 A022257
Adjacent sequences: A100383 A100384 A100385 this_sequence A100387 A100388 A100389
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Dec 09 2004
|
|
EXTENSIONS
|
Edited by Don Reble (djr(AT)nk.ca), Jun 13 2007
|
|
|
Search completed in 0.002 seconds
|
