Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A081376
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A081376 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

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

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


AT&T Labs Research