The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A176035

Difference between product of two distinct primes and previous perfect square.
(history; published version)

#2 by Russ Cox at Sat Mar 31 12:38:35 EDT 2012

AUTHOR

_Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), _, Apr 06 2010

Discussion

Sat Mar 31

12:38

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

#1 by N. J. A. Sloane at Tue Jun 01 03:00:00 EDT 2010

NAME

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

DATA

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

OFFSET

1,1

COMMENTS

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

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 Orlovsky (4vladimir(AT)gmail.com), Apr 06 2010

STATUS

approved