OFFSET
1,2
COMMENTS
Number of partitions of a(n) ending in a(n) are 1, 2, 3, 37, 8745, ...
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..150
EXAMPLE
Number of partitions of 37 is 21637, and 37 is a substring.
Number of partitions of 468 is 380095468763120598477, and 468 is a substring.
MAPLE
with(combinat): P:=proc(q) local a, b, k, n; for n from 1 to q do
a:=numbpart(n); b:=ilog10(n)+1; for k from 1 to ilog10(numbpart(n))+1-ilog10(n) do
if n=a mod 10^b then print(n); break; fi; a:=trunc(a/10); od; od; print(); end: P(50000);
MATHEMATICA
Select[Range[6000], SequenceCount[IntegerDigits[PartitionsP[#]], IntegerDigits[#]]>0&] (* Harvey P. Dale, Oct 22 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Jan 05 2017
STATUS
approved