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.
%I A087045 #23 Mar 22 2024 19:52:14 %S A087045 1,4,64,400,489,519,2164,3589,8703,84761,358837,1463825,1668392, %T A087045 20471837,31960443 %N A087045 Indices k where A057176(k) = 1. %C A087045 By definition k is in the sequence if and only if k divides A057176(k-1). - _Farideh Firoozbakht_, Aug 04 2003 %C A087045 No more terms < 3870000. - _David Wasserman_, Mar 31 2005 %e A087045 a(0) = 0 since A057176(0) = 1. %p A087045 N := 10^5: A := array(0..N): A[0] := 1; for m from 1 to N do A[m] := add(A[j],j=0..modp(A[m-1],m)): od: a := NULL: for i from 0 to N do if A[i]=1 then a := a,i; fi; od; a; %Y A087045 Cf. A057176. %K A087045 hard,more,nonn %O A087045 1,2 %A A087045 _W. Edwin Clark_ and _Farideh Firoozbakht_ at the suggestion of _Leroy Quet_, Aug 03 2003 %E A087045 More terms from _David Wasserman_, Mar 31 2005 %E A087045 a(14)-a(15) from _Michael S. Branicky_, Mar 22 2024