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.

A193164 a(1) = 1 ; for n > 1, a(n) is the smallest number such that a(n)^2 + 1 contains n distinct prime divisors dividing a(n+1)^2 + 1.

This page as a plain text file.
%I A193164 #5 Mar 30 2012 18:35:55
%S A193164 1,3,13,47,463,25683,4187997
%N A193164 a(1) = 1 ; for n > 1, a(n) is the smallest number such that a(n)^2 + 1 contains n distinct prime divisors dividing a(n+1)^2 + 1.
%C A193164 This sequence is not the same as A180278.
%e A193164 a(1) = 1^1 + 1 = 2 ;
%e A193164 a(2) = 3^2 + 1 = 2*5 ;
%e A193164 a(3) = 13^2 + 1 = 2*5*17 ;
%e A193164 a(4) = 47^2 + 1 = 2*5*13*17 ;
%e A193164 a(5) = 463^2 + 1 = 2*5*13*17*97 ;
%e A193164 a(6) = 25683^2 + 1 = 2 * 5 * 13 * 17 ^ 2 * 97 * 181 ;
%e A193164 a(7) = 4187997^2 + 1 = 2 * 5 * 13 * 17 * 97 * 181 * 452033.
%p A193164 with(numtheory):A:={2}:for n from 1 to 7 do:id:=0:for k from 1 to 4200000 (id=0) do:x:=k^2+1:y:=factorset(x):n1:=nops(y):if n1=n and A intersect y = A then A:=y:id:=1:printf ( "%d %d \n",n,k):else fi:od:od:
%Y A193164 Cf. A180278.
%K A193164 nonn
%O A193164 1,2
%A A193164 _Michel Lagneau_, Jul 17 2011