The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A078171 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A078171

a(n) = A055086(A000040(n)).
(history; published version)

#6 by Alois P. Heinz at Tue Oct 31 12:41:12 EDT 2023

STATUS

editing

approved

#5 by Alois P. Heinz at Tue Oct 31 12:41:08 EDT 2023

NAME

a(n) = A055086[(A000040(n)]).

STATUS

approved

editing

#4 by N. J. A. Sloane at Tue Oct 15 22:31:44 EDT 2013

AUTHOR

_Labos E. (labos(AT)ana.sote.hu), Elemer_, Nov 27 2002

Discussion

Tue Oct 15

22:31

OEIS Server: https://oeis.org/edit/global/2029

#3 by N. J. A. Sloane at Fri Feb 24 03:00:00 EST 2006

MATHEMATICA

Table[Length[Union[Table[Floor[Prime[w]/j], {j, 1, Prime[w]}]]], {w, 1, 100}]

KEYWORD

nonn,new

nonn

#2 by N. J. A. Sloane at Tue Jan 24 03:00:00 EST 2006

KEYWORD

nonn,new

nonn

AUTHOR

Labos E. (labos(AT)ana1ana.sote.hu), Nov 27 2002

#1 by N. J. A. Sloane at Fri May 16 03:00:00 EDT 2003

NAME

a(n)=A055086[A000040(n)].

DATA

2, 2, 3, 4, 5, 6, 7, 7, 8, 9, 10, 11, 11, 12, 12, 13, 14, 14, 15, 15, 16, 16, 17, 17, 18, 19, 19, 19, 19, 20, 21, 21, 22, 22, 23, 23, 24, 24, 24, 25, 25, 25, 26, 26, 27, 27, 28, 28, 29, 29, 29, 29, 30, 30, 31, 31, 31, 31, 32, 32, 32, 33, 34, 34, 34, 34, 35, 35, 36, 36, 36, 36

OFFSET

1,1

EXAMPLE

n=25:p(25)=97, sequence Union[Floor[97/j]]= {1,2,3,4,5,6,7,8,9,10,12,13,16,19,24,32,48,97}, a[25]=18.

MATHEMATICA

Table[Length[Union[Table[Floor[Prime[w]/j], {j, 1, Prime[w]}]]], {w, 1, 100}]

CROSSREFS

Cf. A000040, A055086, A051201, A078172.

KEYWORD

nonn

AUTHOR

Labos E. (labos(AT)ana1.sote.hu), Nov 27 2002

STATUS

approved