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.

A308735 Numbers k such that k, k+2, k+4 are of the form p^2*q where p and q are distinct primes.

This page as a plain text file.
%I A308735 #40 Jul 22 2021 02:08:42
%S A308735 2523,2525,3175,22021,25529,28223,40325,53573,58923,73447,122571,
%T A308735 132021,149675,152339,165175,172917,202221,209673,235825,267773,
%U A308735 268223,308671,322223,371075,425723,430171,445923,488975,575973,591575
%N A308735 Numbers k such that k, k+2, k+4 are of the form p^2*q where p and q are distinct primes.
%C A308735 All terms are odd. See comment in A308736. - _Chai Wah Wu_, Jun 24 2019
%H A308735 Ray Chandler, <a href="/A308735/b308735.txt">Table of n, a(n) for n = 1..10000</a>
%e A308735 3175 =  5 *  5 * 127,
%e A308735 3177 =  3 *  3 * 353,
%e A308735 3179 = 11 * 17 *  17.
%t A308735 psx = Table[{0}, {5}]; nmax = 600000; n = 1; lst = {};
%t A308735 While[n < nmax, n++;
%t A308735   psx = RotateRight[psx];
%t A308735   psx[[1]] = Sort[Last /@ FactorInteger[n]];
%t A308735   If[Union[{psx[[1]], psx[[3]], psx[[5]]}] == {{1, 2}},
%t A308735    AppendTo[lst, n - 4]];];
%t A308735 lst
%Y A308735 Cf. A074173, A308736.
%K A308735 nonn
%O A308735 1,1
%A A308735 _Ray Chandler_, Jun 24 2019