A335778 The square roots of the perfect squares produced by A335410 in the order in which they appear.

12, 12, 24, 36, 60, 84, 84, 132, 96, 372, 144, 408, 168, 180, 732, 468, 348, 1032, 408, 1392, 528, 1704, 612, 1956, 948, 744, 2316, 1092, 816, 1212, 1236, 2724, 912, 2616, 2820, 948, 1092, 1548, 1188, 1200, 1716

Offset

1,1

Links

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

Example

11 is in sequence A335410.  2*(11^2 - 7^2) = 144 = 12^2.  Therefore, 12 is in this sequence.

Mathematica

Select[IntegerQ][Table[Sqrt[2*Prime[n]^2 - 2*Prime[n-1]^2], {n, 17000}]]

Prog

(PARI) lista(nn) = {my(pp=2, s); forprime (p=3, nn, if (issquare(s=2*(p^2 - pp^2)), print1(sqrtint(s), ", ")); pp = p; ); } \\ Michel Marcus, Jun 25 2020

Crossrefs

Cf. A335410.

Sequence in context: A092538 A354571 A309772 * A022346 A174020 A173549

Adjacent sequences: A335775 A335776 A335777 * A335779 A335780 A335781

Keyword

nonn

Author

Jeff Brown, Jun 22 2020

Status

approved