|
Search: id:A098330
|
|
| |
|
| 2, 2, 4, 6, 10, 14, 18, 16, 17, 25, 20, 28, 20, 28, 28, 27, 34, 38, 42, 42, 33, 27, 46, 56, 33, 43, 59, 112, 86, 60, 70, 46, 62, 76, 60, 55, 50, 39, 42, 66, 74, 92, 58, 52, 64, 54, 42, 50, 70, 73, 99, 142, 128, 84, 68, 59, 81, 88, 85, 101, 121, 53, 78, 72, 45, 62, 48, 78, 47, 90
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
Odd numbers not present: 3,5,7,9,11,13,15,19,21,23,29,31,35,37,41,49,57,63,139,149,161,...,.
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
MATHEMATICA
|
PrimeFactors[n_] := Flatten[ Table[ #[[1]], {#[[2]]}] & /@ FactorInteger[n]]; a[m_, 0] = a[m_, m_] = 2; a[m_, n_] := a[m, n] = Plus @@ Join[ PrimeFactors[ a[m - 1, n - 1]], PrimeFactors[ a[m - 1, n]]]; Table[ Max[ Table[ a[m, n], {n, 0, m}]], {m, 0, 60}]
|
|
CROSSREFS
|
Cf. A097859.
Sequence in context: A076178 A060988 A034406 this_sequence A083848 A139582 A034410
Adjacent sequences: A098327 A098328 A098329 this_sequence A098331 A098332 A098333
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet and Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 03 2004
|
|
|
Search completed in 0.002 seconds
|
