login

Revision History for A204998

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
a(n) = k^2 - j^2, where (k^2,j^2) is the least pair of distinct squares for which n divides their difference.
(history; published version)
#14 by Susanna Cuyler at Sat Sep 29 18:41:14 EDT 2018
STATUS

proposed

approved

#13 by Jon E. Schoenfield at Sat Sep 29 12:00:24 EDT 2018
STATUS

editing

proposed

#12 by Jon E. Schoenfield at Sat Sep 29 12:00:19 EDT 2018
NAME

a(n) = k^2 - j^2, where (k^2,j^2) is the least pair of distinct squares for which n divides their difference.

STATUS

proposed

editing

#11 by Antti Karttunen at Sat Sep 29 03:58:37 EDT 2018
STATUS

editing

proposed

#10 by Antti Karttunen at Sat Sep 29 02:01:53 EDT 2018
NAME

a(n) = k^2-j^2, where (k^2,j^2) is the least pair of distinct squares for which n divides their difference.

#9 by Antti Karttunen at Sat Sep 29 02:01:27 EDT 2018
LINKS

Antti Karttunen, <a href="/A204998/b204998.txt">Table of n, a(n) for n = 1..23005</a>

#8 by Antti Karttunen at Fri Sep 28 16:07:13 EDT 2018
COMMENTS

A204998=A204996-A204997. For a guide to related sequences, see A204892.

FORMULA

a(n) = A204996(n) - A204997(n).

PROG

(PARI) A204998(n) = { my(d); for(k=2, oo, for(j=1, k-1, if(!((d=(k^2)-(j^2))%n), return(d)))); }; \\ Antti Karttunen, Sep 28 2018

CROSSREFS
#7 by Antti Karttunen at Fri Sep 28 16:05:08 EDT 2018
PROG

(PARI) A204998(n) = { my(d); for(k=sqrtint(1+n), oo, for(j=1, k-1, if(!((d=(k^2)-(j^2))%n), return(d), if(d<n, break)))); }; \\ Antti Karttunen, Sep 28 2018

#6 by Antti Karttunen at Fri Sep 28 14:10:14 EDT 2018
DATA

3, 8, 3, 8, 5, 12, 7, 8, 9, 20, 11, 12, 13, 28, 15, 16, 17, 72, 19, 20, 21, 44, 23, 24, 75, 52, 27, 28, 29, 60, 31, 32, 33, 68, 35, 72, 37, 76, 39, 40, 41, 84, 43, 44, 45, 92, 47, 48, 147, 200, 51, 52, 53, 108, 55, 56, 57, 116, 59, 60, 61, 124, 63, 64, 65, 132, 67, 68, 69, 140, 71, 72, 73, 148, 75, 76, 77, 156, 79, 80, 81, 164

PROG

(PARI) A204998(n) = { my(d); for(k=2, oo, for(j=1, k-1, if(!((d=(k^2)-(j^2))%n), return(d)))); }; \\ Antti Karttunen, Sep 28 2018

CROSSREFS
EXTENSIONS

More terms from Antti Karttunen, Sep 28 2018

STATUS

approved

editing

#5 by Russ Cox at Fri Mar 30 18:58:09 EDT 2012
AUTHOR

_Clark Kimberling (ck6(AT)evansville.edu), _, Jan 21 2012

Discussion
Fri Mar 30
18:58
OEIS Server: https://oeis.org/edit/global/285