A176032 -id:A176032

Search: a176032 -id:a176032

Displaying 1-3 of 3 results found.

page 1

A176034

Difference between product of two distinct primes and next perfect square.

+10
2

3, 6, 2, 1, 4, 3, 10, 3, 2, 1, 11, 10, 3, 13, 9, 7, 6, 2, 16, 12, 7, 4, 18, 15, 14, 13, 9, 7, 6, 5, 15, 10, 6, 3, 2, 22, 21, 15, 11, 10, 3, 2, 1, 24, 23, 14, 11, 10, 8, 3, 19, 18, 13, 11, 9, 2, 24, 23, 22, 20, 19, 16, 12, 11, 10, 8, 7, 6, 4, 30, 21, 19, 9, 7, 3, 2, 30, 27, 24, 22, 15, 11, 2

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

9-6=3, 16-10=6, 16-14=2, 16-15=1, 25-21=4,...

LINKS

Table of n, a(n) for n=1..83.

MATHEMATICA

f1[n_]:=Floor[Sqrt[n]]; f2[n_]:=Last/@FactorInteger[n]=={1, 1}; lst={}; Do[If[f2[n], AppendTo[lst, (f1[n]+1)^2-n]], {n, 0, 6!}]; lst

CROSSREFS

Cf. A006881, A056892, A106044, A176032, A176033

KEYWORD

nonn

AUTHOR

Vladimir Joseph Stephan Orlovsky, Apr 06 2010

STATUS

approved

A176035

Difference between product of two distinct primes and previous perfect square.

+10
1

2, 1, 5, 6, 5, 6, 1, 8, 9, 10, 2, 3, 10, 2, 6, 8, 9, 13, 1, 5, 10, 13, 1, 4, 5, 6, 10, 12, 13, 14, 6, 11, 15, 18, 19, 1, 2, 8, 12, 13, 20, 21, 22, 1, 2, 11, 14, 15, 17, 22, 8, 9, 14, 16, 18, 25, 5, 6, 7, 9, 10, 13, 17, 18, 19, 21, 22, 23, 25, 1, 10, 12, 22, 24, 28, 29, 3, 6, 9, 11, 18, 22, 31

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

6-4=2, 10-9=1, 14-9=5, 15-9=6, 21-16=5,..

LINKS

Table of n, a(n) for n=1..83.

MATHEMATICA

f1[n_]:=Floor[Sqrt[n]]; f2[n_]:=Last/@FactorInteger[n]=={1, 1}; lst={}; Do[If[f2[n], AppendTo[lst, n-f1[n]^2]], {n, 0, 5!}]; lst

CROSSREFS

Cf. A006881, A056892, A106044, A176032, A176033, A176034

KEYWORD

nonn

AUTHOR

Vladimir Joseph Stephan Orlovsky, Apr 06 2010

STATUS

approved

A176036

Absolute values of A176035(n)-A176034(n).

+10
0

1, 5, 3, 5, 1, 3, 9, 5, 7, 9, 9, 7, 7, 11, 3, 1, 3, 11, 15, 7, 3, 9, 17, 11, 9, 7, 1, 5, 7, 9, 9, 1, 9, 15, 17, 21, 19, 7, 1, 3, 17, 19, 21, 23, 21, 3, 3, 5, 9, 19, 11, 9, 1, 5, 9, 23, 19, 17, 15, 11, 9, 3, 5, 7, 9, 13, 15, 17, 21, 29, 11, 7, 13, 17, 25, 27, 27, 21, 15, 11, 3, 11, 29, 31, 23, 17

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

3-2=1, 6-1=5, 5-2=3, 6-1=5, 5-4=1,..

LINKS

Table of n, a(n) for n=1..86.

MATHEMATICA

f1[n_]:=Floor[Sqrt[n]]; f2[n_]:=Last/@FactorInteger[n]=={1, 1}; lst={}; Do[If[f2[n], AppendTo[lst, Abs[(n-f1[n]^2)-((f1[n]+1)^2-n)]]], {n, 0, 5!}]; lst

CROSSREFS

Cf. A006881, A056892, A106044, A176032, A176033, A176034, A176035

KEYWORD

nonn

AUTHOR

Vladimir Joseph Stephan Orlovsky, Apr 06 2010

STATUS

approved

page 1

Search completed in 0.008 seconds