id:A081376 - OEIS Search Results

Search: id:A081376

Displaying 1-1 of 1 results found.

page 1

a(n) is the least number such that A067003[a(n)] = n.

+0
1

1, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 37, 41, 43, 46, 48, 50, 51, 52, 54, 55, 56, 57, 58, 62, 63, 65, 68, 69, 72, 74, 75, 76, 77, 80, 82, 85, 86, 87, 88, 91, 92, 93, 94, 95, 96, 98, 99, 100, 104, 106, 108, 111, 112, 115, 116, 117, 118, 119, 122, 123 (list; graph; listen)

	OFFSET	`1,2`
	MATHEMATICA	`g[x_] := Length[FactorInteger[x]] f[x_] := Count[Table[g[j] - g[x], {j, 1, x}], 0] Table[f[w], {w, 1, 100}]`
	CROSSREFS	`Cf. A067003, A081373-A081375, A001221.` `Adjacent sequences: A081373 A081374 A081375 this_sequence A081377 A081378 A081379` `Sequence in context: A005848 A039065 A139711 this_sequence A055074 A035059 A137832`
	KEYWORD	`nonn`
	AUTHOR	`Labos E. (labos(AT)ana.sote.hu), Mar 24 2003`

page 1

Search completed in 0.002 seconds

Last modified October 13 20:18 EDT 2008. Contains 145016 sequences.

AT&T Labs Research