cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A248354 Least positive integer m such that m + n divides prime(m^2) + prime(n^2).

This page as a plain text file.
%I A248354 #9 Oct 05 2014 20:55:37
%S A248354 1,1,2,1,3,8,2,6,6,45,9,4,15,2,13,17,4,12,9,8,11,6,101,20,2,15,7,50,4,
%T A248354 183,48,15,9,5,4,4,157,1,123,4,13,112,76,4,7,13,44,2,16,28,83,202,114,
%U A248354 50,85,31,14,62,19,25
%N A248354 Least positive integer m such that m + n divides prime(m^2) + prime(n^2).
%C A248354 Conjecture: a(n) exists for any n > 0. Moreover, a(n) <= n*(n-1)/2 for all n > 1.
%C A248354 See also the comments in A248052.
%H A248354 Zhi-Wei Sun, <a href="/A248354/b248354.txt">Table of n, a(n) for n = 1..10000</a>
%e A248354 a(3) = 2 since 2 + 3 = 5 divides prime(2^2) + prime(3^2) = 7 + 23 = 30.
%t A248354 Do[m = 1; Label[aa]; If[Mod[Prime[m^2] + Prime[n^2], m + n] == 0, Print[n, " ", m]; Goto[bb]]; m = m + 1; Goto[aa]; Label[bb]; Continue, {n, 1, 60}]
%o A248354 (PARI) a(n)=my(N=prime(n^2),m); while((prime(m++^2)+N)%(m+n), ); m \\ _Charles R Greathouse IV_, Oct 05 2014
%Y A248354 Cf. A000040, A000290, A011757, A247824, A247975, A248052.
%K A248354 nonn
%O A248354 1,3
%A A248354 _Zhi-Wei Sun_, Oct 05 2014