id:A085392 - OEIS Search Results

Search: id:A085392

Displaying 1-1 of 1 results found.

page 1

Largest prime factor of greatest proper divisor of n.

+0
3

1, 1, 1, 2, 1, 3, 1, 2, 3, 5, 1, 3, 1, 7, 5, 2, 1, 3, 1, 5, 7, 11, 1, 3, 5, 13, 3, 7, 1, 5, 1, 2, 11, 17, 7, 3, 1, 19, 13, 5, 1, 7, 1, 11, 5, 23, 1, 3, 7, 5, 17, 13, 1, 3, 11, 7, 19, 29, 1, 5, 1, 31, 7, 2, 13, 11, 1, 17, 23, 7, 1, 3, 1, 37, 5, 19, 11, 13, 1, 5, 3, 41, 1, 7, 17, 43, 29, 11, 1, 5, 13 (list; graph; listen)

	OFFSET	`1,4`
	MATHEMATICA	`PrimeFactors[n_] := Flatten[ Table[ # [[1]], {1}] & /@ FactorInteger[n]]; f[n_] := Block[{gpd = Divisors[n][[ -2]]}, If[gpd == 1, 1, PrimeFactors[gpd][[ -1]] ]]; Table[ If[n == 1, 1, f[n]], {n, 1, 95}]`
	CROSSREFS	`Cf. A014673, A085393.` `Adjacent sequences: A085389 A085390 A085391 this_sequence A085393 A085394 A085395` `Sequence in context: A128487 A056609 A014673 this_sequence A089384 A057059 A027750`
	KEYWORD	`nonn`
	AUTHOR	`Robert G. Wilson v (rgwv(AT)rgwv.com) and Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jun 26 2003`

page 1

Search completed in 0.002 seconds

Last modified October 10 20:39 EDT 2008. Contains 144831 sequences.

AT&T Labs Research